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and conditions. 

1 The Licence shall commence on receipt of the Software by the 
Customer and shall continue thereafter unless terminated in 
accordance with the terms hereof. 

2 The Licence authorises only the Customer to use the Software 
only on equipment owned or used by him. 

3 The Software and the copyright in and title to all industrial 
property rights therein are and shall remain the property of the 
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5 The Customer shall not assign sublet or otherwise transfer 
this Licence or the Software by operation of law or otherwise in 
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be for his personal use and provided that such copies will be 
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7 The Licenser may terminate this Licence forthwith upon notice 
if the Customer neglects or falls to perform or observe any of 
the terms hereof. 

8 immediately upon termination of this Licence for whatever 
reason the Customer shall return the Software to the Licenser and 
shall not have the right to retain any copies of any part thereof 
by any means. 

9 The Licenser shall not be liable for damages or 
consequential damages directly or indirectly arising out of the 
or in connection with the delivery use or performance of the 
Software. 

10 If any of the conditions or parts thereof of this Licence are 
held to be invalid inoperative or unenforceable by any Court they 
are to that extent to be deemed omitted. The Law of this Licence 
shall be the Law of England. 
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Techniques and Glossary. 

hiiT.. 

description of the editing facilities. 


2 



Forth Techniques is a »uch Dwre detailed guide to Forth 
programming. Several different aspects of the language are 
covered in some depth and the presentation is a compromise 
between an introduction and a source of reference. This section 
also details floating point arithmetic. 


The Glossary is a description of the words of the core language. 
It should be stressed that it is not necessary for the user to 
know all these words to make effective use of Forth. As a self 
defining language Forth provides a wide range of facilities, 
selective use of which can be laade as the starting point for any 
particular application. As new wrds are added by the user the 
language ccmies to reflect the application rather than the 
reverse. 


After reading the operating instructions most users will want to 
begin with the section Using Forth and then move on to Forth 
Techniques. Forth is an easy language to use but is liJjely to 
contain many unfamiliar ideas to start with. The different 
approaches used such as postfix notation# stacks and close 
integration with hardware are none the less more unusual than 
difficult. They may take a little time to grasp but the effort 
should be well worthwhile. 


introduction to Forth 

Forth is a fully structured self extending language. It la a 
typeless language offering the user complete freedom to design 
and manipulate data structures of arbitrary complexity. It 
allows the user full access to all machine functions including 
those controlling the operation of the language itself. 
Programming in Forth consists of extending the language In ways 
defined by the user. The results are indistinguishable from the 
core language. 

Operators in Forth are called words and are of two types known as 
primitive and secondary words. Primitive words are object code 
routines which contain Z60 machine code instructions. Secondary 
words contain either threaded code or data such as constants# 
variables and arrays. Threaded code# which is the result of 
compilation in Forth# consists of lists of addresses of other 
words to be executed in sequence like a series of subroutines. 
To the user# though, primitive and secondary words behave in the 
same way. 

Words are contained in a dictionary which is a linked list so 
that each word contains the address of its predecessor in the 
dictionary. The dictionary is divided into vocabularies# each of 
which contains words associated with a particular function. 
General purpose words are found in the core vocabulary. New 
words are added to the dictionary using defining words which 
compile the language. A new word is defined as a sequence of 
existing words. 
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processes communicate through stacks (last in first out 
onrstack, called the data stack, parameter stack or where there 
is no amhigaity just the stack, is explicitly available to the 
user for the manipulation of numbers and other temporary data. 
Another stack, called the return st^k, ^es require the 

intervention of the user but can also be used for data. 

A virtual memory system organises available mass storage into 
blocks of a fixed number of bytes each. When referenced by 
number a block is automatically read into a buffer in random 

access memory. An important use of these blocks is for the 
storage of text representing new Forth words and Programs and for 
this purpose blocks are grouped into screens of 1024 characters. 
The tUt can be edited using editor words contained in an 

editor vocabulary. 

Forth differs from other languages because the wordset is chosen 

bv the user. Starting from an initial general purpose set new 

aid progressively more powerful weeds are built up 

and ^In small steps. The resulting wordset reflects the users 

application and can be as specialised as required. 

few restrictions as possible and the sim is to make the most 

efficient use of hardware rather than mask its existence. 


Implementation Notes 


The implementation conforms to the standard FIG FORTH model 
version^ 1.1. The character set is the ASCII 128 character set 
but other characters may be included as data or in strings. 


By convention letters used in the names of Forth words are 
in the upper case but lower case letters are not translated into 
the upper case^ to overcome this it is suggested that you set the 
Shift Lock. Each word and number in an input line must be 
separated from others by at least one space and no spaces should 
be left in the middle of a word name of number. No action will 
be taken until a line is completed with a carriage return except 
echoing characters to the screen. 


The language itself recognises only backspace, and return as 
control keys? all others are treated as data. A primitive word 
KEY allows this arrangement to be modified for particular 
applications such as a screen editor. See later for more 
details. 


A table of error messages appears over the page. The error 
message numbers can be replaced with text by executing 1 WARNING! 
providing that error message on screens 4 and 5 are resident. 
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Error message 0 

1 

2 

3 

4 
6 

7 

8 

17 

18 

19 

20 
21 
22 

23 

24 


Unrecognised input 

Enpty stack 

Dictionary full 

Has incorrect address mode 

Is not unique 

Disc range or Tape range 

Full stack 

Disc error or Tape error 
Compilation only; use in definition 
Execution only 
Conditionals not paired 
Definition not finished 
In protected dictionary 
Use only when loading 
Off current editing screen 
Declare vocabulary 


The error message numbers can be restored by executing 0 WARNINGi 
Users should not be inhibited by error message 1 Empty stack. 
This error is easily made and often made deliberately by Forth 
users to check that the stack is actually empty at a particular 
time. 


OPERATION 

Loading the Language 

Before the language can be loaded« space must be created in the 
MSX store. This may be done using the CLEAR statement. After 
this the language may be loaded using the BLOAD command. 

The loading procedure is therefore:- 

(i) CLEAR 2Q0,&H87FP (RETURN) 

(ii) BLOAD "KPORTH^.ft (RETURN) 

When this has been successfully achieved the heading title "KOMA 
FORTH (c) 0. Williams, 280 PIG FORTH l.V' will appear together 
with a cursor indicating that the machine is waiting for input. 

It should be noted that the resident BASIC and the FORTH co-exist 
in the machine. It is possible to exit back to the BASIC by 
using the command BYE and back again to the FORTH using the 
command OEFUSR«&H8800:A»USR(0)• 

Since FORTH is an interactive language it is ready for use as 
soon as it is loaded. The tutorial section 'Using FORTH' may be 

read at this point if the user wishes to try out the Language 

before reading about the tape and printer facilities. 

Using a Printer 

An Epson MX80 F/T printer driver is installed and is enabled by 
storing a non zero value in the variable EPRINT. This can be 
done by executing I BPRIHT ! or by control P. The printer is 

turned off by 0 EPRINT* or a second control P. When the printer 
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IS enabled, everything output to the screen is echoed to the 
printer. This is a very convenient way of producing listings and 
other outputs. If a different form of output control is required 
or a different printer driver needed then a user supplied 
subroutine may be installed. This should be placed in the 

dictionary pointer given by HERE, 
fffnm be reserved in the dictionary using ALLOT: 30 

subroutine should be called from 
9PC6 hex where the address after the call instruction CD must be 
altered appropriately. The character to be output is supplied in 
TV Sharp normal code and the values of 

the IX and p registers must be preserved. Any other register 

in«ructiorc9.^ subroutine must end with the return 

Tape Operation 

(N.B. for successful operation of the tape interface provided it 
uled?) f«corder with a 'remote- fLility be 

than’'“orovidine programs and data, however, rather 

tnan providing separate files on tape such as in basic forth 

S*’® '?P® extension of the memorrin*ide ?he 

tSe S'rEEdVinf: -® 


f *dlae T« do ,hf ^ it bust first of all be formatted 

the record recorder and 

record button. Then execute the word FORMAT. This 

cause the machine to write !« blank files onto the tane 

syst^ will return with the word OK when this Ms 

® <iifferent number of files is required (for 

be chSnLd^naf the variable BLOCKS/TAPE may 

EEfErrioRHi^?'?! exEEfUES?* “ BLOCKS/TAFEI for 32 blocX^ 


Ilka 

press 

will 

The 

been 
(for 


Buffers are provided in store which are used for the temoorarv 

spec^fres'L^^br^f;^. to accesr" b?oc??”h^ 

residenrin^^hn?r^ * appropriate block is not already 

ItdVrlrtA ''ill be automatically fetched from tape 

and placed in one. Once in a buffer the block may be read or 

blook^it i^Lri.d -e^ry. If any changes are made to the 

be rewrKjen h8^v t that later on these changes can 

be rewritten back onto tape. The blocks are most often uLd for 

but EarErused °i forth definitions and programs 

are used for text are no™ny\eferr^*Jo'^a°^screens. 

system^deEcriLd^^rt^l ^ 


6 



Th. language tape supplied, f 

L- --- 

numbers can be restored by 0 WAHSIMG .. 

updating blocks may f %e‘?“-ii!ablf Uoa^ 

Assuming that screen 1 f*** UPDATE.^ Typ® STATUS and block 1 
it if necessary) type 1 LIS^PDATB^^ language tape 

will be shown as .^ert tape. Type SPLUSH. A prompt 

and insert the newly nHessary on this occasion) 

will appear to L^earcLd until; the header of the 

and PbAV. The “P® £oi,„a Press STOP when prompted then 

^irs^ ^ n Se 

^i^Sagf^Lp^^ Tt^^wUX :h^« bl^/l etill resident but no 
longer updated. 

cov.r. .11 th. „=;*s~%ri“»;S5.f:.ST«.''“bSS 

memory system. crelted b^the user using the editor 

being saved has ^J?**'*® k the block in question as saved 

commands which ^ an updated form at one 

using BPLU6H. A eSn be Overwritten on tape 

time and ®»ved using SPLUSH. A program covering several 

any number of in small steps. Note that if 

'S sno«“ ;s 

sf si'‘.‘unKi .pi...* .«..»• “ -i-- - 

written to tape. 

There is ^Sr^hf uLr' « 

the sequential assunee that the tape 

press a key for nocilTlv the case. However, 

transport Is in play mode. full^when a block is to be 

it is possible that ^^^he buffers aw fuli_^^en^a^ 

read and the next one to be use . . causes is that at the end of 
block can be read. it in play mode 

rewriting the system will as block header. However the 

T.Te iiu^'rtur isode and left unchanged would 

overwrite data on the tape. 

This may be regula^ir uH 

on the status of the buffers g -nvwav') Alternatively 

recording has taken **'®" f®“af!ong L you stop the 

?^^ordtnrwithin^a there should be no problem. 
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Tape Virtual Memory Syatern 

The object of the tape virtual memory syat^ is to make a tape, 
as far as possible, an extension of the random access memory. 
The tape is divided into numbered blocks* each of 1024 bytes or 
IK. The blocked are most often used for the storage of text 
consisting of Forth word definitions and programs but can be used 
for the storage of any type of data. A block used for the 

storage of text is usually called a screen. 

When a block is referenced the user is prompted to load it from 
tape and it is stored in an area of the random access memory 
called a buffer. There axe six buffers each capable of holding 
one block. Once a block is resident in a buffer its contents 
can easily be referred to and altered by a program. If the 
contents are altered then the block is marked as updated. 

Instead of the explicit conmand to save a particular block the 

word FLUSH will cause the user to be prompted through the 

process of saving all the blocks that have been updated. A block 
is saved by overwriting the existing version on tape so that the 
blocks on tape are always current. 

Each tape used for the storage of block# must first be formatted. 
The word FORMAT writes sixteen blank 1024 byte blocks on a tape 
numbered from one. The number of blocks written can be alterd by 
changing the value of the variable BLOCK8/TAPB, which is 
initially sixteen. Each block is represented on tape as a 
numbered header followed by 1024 bytes of data. The header is 
used to locate the block for both loading and saving. When a 
block is saved in updated form only the data part, which is found 
by locating the header* is overwritten. 

A block is accosied by the sequence n BLOCK which will prompt 
the ussr to load block number n from tape it is is not already in 
a buffer. The adress of the first byte of the block will be left 
on the stack and any byte in the block cam then be accessed by 
adding an offset to this address. 

Whenever the contents of a block are modified the word UPDATE 
sets the sign bit in the status cell associated with the buffer 
which contains the most recently referenced block. update 
should be included in the definition of any word which modifies 
the contents of a block. 

An important use of blocks is for the storage of source text 
allowing word definitions and programs to be modified and 
recompiled when required. Blocks containing source text* called 
screens, are displayed using n LIST. The test can be edited using 
the words of the EDITOR vocabulary. Any editor word which alters 
text on a screen will automatically mark it as updated. 

TWO words, SFLUSH and SCOPX* replace the more usual Forth words 
FLUSH and COPY and have been designed for tape systems. SFLUSH 
prompts the user through the process of saving any updated blocks 
on tape leaving them stored in the buffers but no longer marked 
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as updated. This is sore cODVenient than FLUSH which removes 
blocks from the buffers so that they must be reloaded when 
required again. The sequence 7 12 SCOPY vill alter the number of 
screen 7 in the buffers to 12 and isarlc it as updatd so that it 
will be written to block 12 on tape the next time SFLUSH is used. 

Any word which accesses a block or screen will prompt for it to 
be loaded from tape unless it is already in a buffer. Words such 
as INDEX and TRIAD which access several blocks in sequence will 
automatically load blocks after the first that they use. The 

same applies to screens containing —> (next screen) when they 
are compiled using LOAD. 

The aix buffers occupy the highest nemory used by the language. 
Each buffer consists of a status cell (two bytes), 1024 bytes of 
data capable of holding one block and two bytes containing zero 
which are used as end of block markers if the block In the buffer 
contains source text. The status cell contains the number of the 
block in the buffer or aero if the buffer is unused. The signbit 
of the status cell is set if the block in the buffer has been 
updated. The word STATUS lists for each of the six buffers the 
address of the status cellr its contents and whether the block in 
the buffet has been updatd. This word is purely to aid the user 
of a tape system; the sequence n SLOCK should always be used to 
obtain the address of the first byte of a block irrespective of 
which buffer it happens to be in. 

The tape virtual memory system Is an emulation of the disc system 
referred to in published material on Forth. The operation of a 
disc system and some other details of virtual memory are given in 
the subsection entitled Virtual Memory System. 


Using Forth 

When Forth is loaded the message '2S0 PIG FORTH 1.1' comes up on 
the screen together with the cursor. Forth is a naturally 
interactive language so it can be used immediately simply by 
typing instructions at the keyboard. 

Type 4 5 + . then press return. 

4 5 + . 9 OK 

Each number or operator must be separated from others by at least 
one Bpace but extra spaces may be used freely. This is a general 
rule in Forth. The result 9 should be printed on the screen 
followed by OK. Each token such as 5 and * is treated in the 
same way. First a list called the dictionary is searched to see 
if the token is the name of a word/ which is the name given to 
operators in Forth, Then if the token is not a word it is tested 
to see if it is a number. If it is neither a word nor a number 
it is rejected. Words such as + and . are executed. Numbers 
such as 4 and 5 are placed on the stack which is a temporary 
store. 


9 


The example input line is processed in the following way. The 
number 4 does not appear in the dictionary but is a valid number» 
so it is placed on the stack. The sane applies to 5 . is a 
Forth word which adds the first two stack entries and replaced 
both with the result. The word . pronounced dot prints the first 
stack entry which is now 9, The nessage OK is then printed to 
show that the execution of the line is cocaplete and that no 
errors have been detected. 


Stack 


When a niijnber is entered it is placed on the stack/ which is a 
temporary store arranged so that the last item placed in it is 
the first out when any item is renoved. The next number entered 
can be visualised as pushing down the first and in its turn 
becoming the first stack entry. The number entered first is now 
the second stack entry. This organisation is sometimes described 
as last in first out. 

2)4 OK 

When the numbers 2 3 and 4 are entered they are put on the stack 
with 4 as the first stack entry because it was entered last. 
Bach time dot is used one number is removed from the stack and 
printed. With very few exceptions Forth words remove their 
arguments from the stack when they are used. Other words are 
used to make copies of numbers on the stack. After the three 
numbers have been printed the stack is empty because there are no 
'more items on it. If dot is used when the stack is empty then an 
error message results. Any operation or sequence of operations 
which causes the stack to empty will result in this error 
message. 

Arithmetic 


Arithmetic in Forth is carried out using reverse polish notation 
or KPN. This is not as baffling as it sounds. Instead of 
placing an arithmetic operator such as * between its operands 
(called infix notation) operators follow their operands. Some 
examples of postfix notation are given below, together with infix 
equivalents. 


Postfix 


Infix 


2 3 + 

2 3 + &• 

3 5 » 2 + 


2 + 3 

(2 + 3) • 5 
2 + (3 * 5) 


It should be apparent that the order of <^eration5 Is always 
explicit in RPN. No brackets or precedence rules are ever used. 

Forth can be used as a calculator siji^ly by entering arithmetic 
in this postfix form. The calculations are carried out on the 
stack. 
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Keyboard entry 


Staclc contents 


2 

3 

* 

5 

* 


2 

3 2 
5 

5 5 
25 


The word + adds the first two stack entries and replaces them 
with result. Similarly the word * (star) multiplies two numbers. 
The result of the calculation 25 is left on the 
something ia done with it explicitly. It could 
another calculation or by another Forth word. In this case it 
can be printed using dot. 


stack until 
be used in 


The use of a stack for arithmetic may well be new and unfamiliar. 
The beat approach initially is to think in terms of just one 
number on the stack at any one time. Each individual arithmetic 
operation can then be entered in sequence. 


100 OK 

12 * OK 

14 / OK 

5 - OK 


Start with 100. Enter it sc that 100 Is on the 

Add 12 to this number. 112 is on the stack- 
Divide by 14. the result 0 is on the stack 
Subtract S leaving 2. 


The division word / (called slash in Forth) is an example of an 
operation which gives different results depending which way it is 
done. For example 112 14/ is 8 but 14 112 is 0.125. The order 
in which numbers are entered when non cosesutative words iiKS / 
are used is quite natural. 

once postfix notation and the use of the stack ^eome more 
familiar then wider use of the stack can be made. There are a 
number of words in Forth for this purpose. 


Words and their use 


Some words have already been met. ♦ - ♦ / and . are all words. 
Like nearly all words in Forth they can be used simply by typing 
them in. 


Each word has a name made up of Letters and other characters. 
By convention letters used in word names are always upper case 
letters. Word names are chosen to indicate what the word does. 
Many symbols used in English punctuation are used as the names ot 
frequently used words and these include , » ; ? J and 7. 

Bach Forth system Initially contains about 200 words. The user 
does not have to learn all these words to make effective use ot 
the language but only those that are of interest or value to an 
application. Later it is explained how to add new words chosen 
and named by the operator. For the moment, though, only words 
already in the language can be used. If the name of a word not 
in the core language is used then it will be rejected followed by 


11 



? MSG 0 to show it has not been recognised. 

Number bases 

Forth can operate in any number base. Per example the word 
HEX alters the base to hexadecimal or base 16. When this word has 
been used then numbers are entered in hex and results printed out 
in hex. The base can be changed at any time so numbers can be 
entered in one base and printed out in another allowing 
conversions. 

HEX 9 7 t 10 OK Nine and Seven add up to 10 in hex 

13 DECIMAL . 19 OK 13 hex is 16 t 3 or 19 in decimal 

HEX and DECIMAL are words which change the base in which Porth 
operates. 

Forth is always in decimal initially, when bases higher than 10 
are used the numbers after 9 are A B C .... using letters of the 

alphabet as necessary. When bases lower than 10 are used then 

only digits from sero to one less than the base are valid. In 
binaryf for example, only 0 and 1 are numbers. 

Bases other than decimal and hex are obtained by altering the 

value of the baae variable BASE. A word! (pronounced store) ie 
used to do this. 

3 BASE J OK Stores 3 at BAS6 altering base to 3 

101 BASE { OK Stores 101 base 3 <10 decimal) at 

BAS6 

BABE Is an example of a variable. The use of variables is 

described In more detail later in the section on constants and 
variables. 


Core language words 

The initial word set in Perth is sometimes referred to as the 
core language. These words fall into three categories. First 
the basic building blocks which are used to make up higher levels 
of the language and user defined words. There are about 40 of 
these and they perform such functions as adding two numbers and 
storing a number in the memory of the computer. Then there are a 
number of specialised words which interpret what is typed at the 
keyboard by the user. Finally there are sooie higher level words 
which perforin more complex tasks for the user. Some of the words 
in the first and third groups are shown below. 

Two words which control the display are SPACE and CR. These 
words output a space and a linefeed to the screen respectively. 
A word SPACES (separate from SPACE) takes one number from the 
stack and outputs that number of spaces. B SPACES outputs 8 
spaces and so on. More generally a word EMIT takes a number from 
the stack and Interprets it as an ASCII code value which is used 
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to print the appropriate ASCII character. HEX 41 EMIT prints the 
letter A. 

.here are several words 

logical functions _ 27 . ms forms the absolute value 

?Lctio:r^ncluL"'^D oS'and XOR and these operate on a bit by 
bit basis BO 2 1 OR . will pnnt 3. 

section °n =°n-5)ticnal 1 indicating true and 

|V ft iTrX l "dfcating false. The words < and > make 

the tests less than ana greater than respectively. 

5i; t? ;s K-K.a-.;i'SS=s-nr5. 

later in this guide. 


Structure of Forth 

Sinr^tn; of-tl:. otiral^houlh its use is 

valuable for certain porposee. 

p?oo~5s-tio; 

srrs. ; j fK 5 "-- ? 

program. It is what ma^ operation or word is 

HTXlt in°?hrLm^ -y whate^r^Ue ^ -,,'^Lnfrn 

^^rstacri^irrea^lf/t^fp-- -ck^^ady to be used by 

the next word. 

The user is completely staorShe? 

^rey^^t^^srLn?so'!pr£^£tt3 of^their^ operation^ on 

tht "sttck'is ^^ayrspecif^ .r^TorthfLat ofa'program" 

typing them in or writing them a p three numbers 

.Si S““s -sr 

r4S...“iSi;iT„££pop -i: 
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for printing out or passing to another program. 


Although numbers have been referred to as the most common items 
on the stack a variety of different data types are dstxlt with on 
the stack. Each stack entry consists of two bytes together and 
since a byte is eight bits the stack is said to be 16 bits wide. 
Into these 16 bits can be put numbers, addresses, boolean flags, 
ASCII characters and any other type of data that will fit. Two 
stack entries can be used together to make 32 bits and this 
arrangement is used, for example, for double precision numbers. 
For other date types which would require several stack entries 
together such as a string it is more convenient to store the data 
in memory and manipulate its address on the .stack. 


For the mean time it can be assumed that all references to stack 
entries mean single entries of 16 bits- Most ccmimonly these will 
be in the following categories? 
integer numbers between -32768 and +32767 

boolean flags where tero means false and any non zero value means 

true - 

characters where the lowest seven bits are the A5CIT code of 
the character 

addreesOB of memory locations. 


Forth Is often described as a typeless language. This means that 
whether a stack entry is an integer number of a character depends 
on the context in which it is found. It is entirely the 
reepcnslbility of the user to keep track of the moaning of stack 
entries. This means both freedom from restrictions on what can 
and cannot be dons with different types of data and the 
responsibility for avoiding errors by confusing different types 
of data. 


In the next section the most coajnonly used stack manipulation 
words ate introduced. These words are used to move values around 
the stack so that several words can be used together, immediately 
after folowa an introduction to defining new Forth words chosen 
by the user. 


Stack manipulation words 

These words are introduced here beceuee they are among the meet 
frequently used words in Forth, In addition to its use for 
arithmetic the stack is used extensively for passing data from 
one Forth word to another, 

Nearly all Forth words remove their arguments from the stack when 
they are used. For example if . is used to print the number on 
the top of the stack then onc?e the number has been printed it is 
no longer on the stack. In order to do more than one thing with 
a number a copy has to be made so that one operation can use the 
number and one can use the copy. This is accomplished by the 
word DUP which duplicates whatever number is on top of the stack. 
Using DUP followed by . the number on top of the stack can be 
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examined without altering it. DUP nakes a copy and . prints the 
copy leavinQ the original number unaltered. 


Below is shown the effect of DUP and some other words on a stack 
on which the numbers 54321 have been placed by typing them 
in. The number 1 is on top of the stack because it was typed 
last; 2 is the second stack entry and so on. 


word 


Stack contents 
before 


Stack contents 
after 


DUP 12345 

SWAP 12345 

OVER 12345 

2DUP 12345 

DROP 1 2 3 4 5 


1 1 2 3 4 5 

2 13 4 5 

2 1 2 3 4 5 

1 2 1 2 3 4 5 

2 3 4 5 


SWAP reverses the order of the first two numbers on the stack so 
that the second number can be used easily. When a copy of the 
second number is needed then OVER provides a more convenient 
solution that SWAP DUP because the existing first and second 
entries ere not moved. 2DUP copies the first and second entries 
allowing a comparison for example and is the exact equivalent of 
OVER OVER. Finally drop is used to discard unwanted stack 
entries. it is important that this is done otherwise the stack 
will build up indefinitely and eventually overwrite the 
language. 

These words can easily be used to make arithmetic operations 
more comprehensive. For example the square of a number can be 
produced by DUP * which multiplies the n^lmber by itself. 


Defining new words 

The cube of a number can be calculated in the folowing way. 

Keyboard entry Stack contents 

4 4 

DUF DUF 444 

» 16 4 

* 64 

64 OK 


The sequence DUP DUP * • takes the first stack entry and returns 
the cube of that number. So a new word CUBE can be made which 
will calculate the cube of any number. The number is taken from 
the stack and the cube of the number is returned to the stack. 
The word: (colon) is used to form the new word CUBE and colon is 
called a defining word. 

CUBE DUP DUP * * ? OK 
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This line# which should by typed in as it is written, is referred 
to as a definition. The definition starts with colon. After : 
comes the name of the new word CUBE, which may be formed from any 
letters, numbers and other ASCII characters except a space. If a 
number is used alone though its role as a word name will 
effectively prevent its use as a number so at least one non 
numeric character is usually included. 

The words DUP DUP ♦ * are not exectued in the usual way. Instead 
they are compiled into the definition of the new word CUBE. 
Another word semi, which is entered as ; is used to end the 
definition. The new word COBB is then complete and the language 
returns to the interactive mode which means that other keywords 
typed in will be executed and not compiled into CUBE. The message 
OK shows that CUBS has been accepted and that the definition did 
not contain any errors. 

The word CUBS is now ready for use. 

3 CUBE , 27 OK 

7 CUBE . 343 OK 

This new word behaves exactly as DUP DUP * * do when typed in 
successively. 

Kuinber literals 

When a number appears in a colon definition it is compiled into 
the new word and is called a literal. When the word containing 
the number literal is executed the number is pushed to the stack. 

I 2CUBE CUBE 2 * ; OK 
3 2CUBE . S4 OK 

This example uses the previously defined word CUBE. Building up 
definitions in this way is the essence of using Forth. When 
2CUBB is executed CUBE leaves the cube as the first stack entry. 
The number 2 is pushed to the stack and * multiplies the two 
numbers at the top of the stack, leaving the result on the stack. 

String literals 

Strings or messages can be made part of a word. When the word is 
used the string is printed on the screen. 

j CUBE. CUBE CR Cube is " SPACE . ; OK 
5 CUBE. 

Cube is 125 OR 

Here the new word is called CUBE. . The suffix . suggests it 
prints its answer. CUBE is used again to calculate the cube and 
leaves it on the stack. CR feeds a line« The word .* compiles 
the string which follows it until the closing quote • into the 
word. .* is pronounced dot quote. SPACE leaves a space and 
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finally . prints the result 

A string literal may be the only element of a word which is then 
used in other word definitions. 

t A$ ,■ A frequently used string " ; OK 
A frequently used string OK 

There are many more flexible ways of using strings in Forth and 
some are discussed later on. 

New words and the stack 

The original definition of CUBE could have l>€en designed to print 
its result immediately by including . in the definition. This 
would have been the easiest thing to do if the calculation of a 
few cubes was all that the user required. if a word returns its 
result to the stack then it becomes a much more flexible 
instrument. It can be used to convert the first stack entry to 
its cube in any context. Other numbers can be on the stack as 
second and subsequent entries and they will not be affected by 
CUBE. Once the user has defined CUBE he no longer has to worry 
over the details of calculating cubes nor will he make errors 
over them. These principles become important when several words 
are used together to make more powerful words until one word is 
the program that meets the user's application. 

Three other points axe helpful when defining words. Words ahould 
be given meaningful and descriptive names. Definitions should be 
kept short and simple so that complex functions are formed from 
several words rather than one and each word 'hidea' a distinct 
operation. Finally %fords can be tested by putting dummy 
arguments on the stack and checking the operation of the word; so 
bringing to light errors and limitations. Below is the program 
for testing CUBE. 

0 CUBE • 0 OK Zero gives correct result 

-2 CUBE . *6 OK Negative numbers give correct result 

32 CUBE . -32?$6 OK Overflow in single precision 

arithtnetic (use double precision 
for numbers higher than 31) 


Errors in definitions 

A correct definition is iikdicated by the message OK or the 
message IS NOT UNIOUB (or MSG 14). This latter message is not 
an error message in the usual sense but simply shows that the 
name chosen for the new word is also the name of an existing 
word. This is perfectly permissible and any name can be reused, 
including those of words in the core language. A consequence of 
reusing a name though, is that when that name is used only the 
most recent name will effectively be lost. Words using these 
earlier words will not be affected though. There is a means of 
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using the same word name more than once for different words and 
making all the different versions accessible. This is called 
vocabulary control and is explained later. 

Only words already in the dictionary and numbers and strings can 
be used in definitions. A missed space will make a token 
unrecognisable and result in such error messages as:CUBE ? . 

Stack underflow during a definition will be detected as an error. 
If these or other errors occur during compilation of a new word 
then the partially completed word will be erased. 


Discarding unwanted words 

An unwanted word is removed using FORGET followed by the name of 
the word to be removed. 

FORGET CUBB OK 


FORGET causes the removal of the word that is forgotten and all 
subsequent entries. However if there is more than one word with 
the name which follows POROBT then only the most recently entered 
version is forgotten. In normal use attempts to forget core 
language words are rejected although this restriction can be 
removed if required as is usually the case in Forth. All words 
outside the core language are forgotten when COI.D is used. 


Conditional and loop constructs 

Forth has a rich set of conditional and looping constructs. 
These are available only within compiled definitions of words. 

As with most languages the boolean values true and false which 
govern the operation of these constructs are defined as follows) 

false zero 

true any non sero value 

Any number on the stack can be used as a truth value and ia 
referred to as a flag on the stack. There are a number of words 
which perform relational tests such as comparing two numbers to 
see which is larger or seeing if a number is equal to zero. These 
words leave a flag on the stack according to the result of the 
test they have made. This flag can then be used by such 
conditional words as IF and WHILE. 

IF ENDIF 

The simplest conditional construct in Forth is IF ENDIF. 

; UNITY 1 * IF ." Unity " ENDIF ? OK 
1 UNITY Unity OK 

7 UNITY OK 




This example can be cootpared with the same program in a Pascal 
like language. 

PROCEDURE UNITY 
ir X - 1 THEN ( 

WRITE “Unity*) 

ENDPROC 

In Forth conditionals are expressed in a postfix form so the 
words associated with a conditional operator such as IF or ENDIF 
precede the operator instead of folowing it. There is no need for 
brackets to indicate the scope of the statements to be executed 
if the conditional test is satisfied because ENDIP shows the end 
of these statements. 

The word » (equals) is a relational operator which generates a 
true flag if the two entries at the top of the stack are equal 

and a false one if they are not. Here the first stack entry when 

UNITY is used is compared to 1. The word IF takes the flag 

formed by « from the stack. If this flag Is a true non zero 

value then the words between IP and ENDIP are executedr otherwise 
they are not* Execution resumes unconditionally after 6KDI7. 

Every IF construct must be completed by an ENDIF in the same word 
definition. A word ELSE can be used to specify an alternative 
set of words to be executed if the test made by IP is false. 

i UNITY2 1 « IP .• Unity" 

ELSE Mot unity* 

ENDIP i OK 

If the flag on the stack examined by IP is true then only the 
words between IF and ELSE are executed. If the flag is false 
then only the words between ELSE and ENDIP are executed. in 
either case execution resumes unconditionally aftar ENDIP. 

The word THEN is provided and may be used Instead of the word 
ENDIF wherever it occurs if the user prefers. 

DO LOOP 

The finite loop structure DO LOOP is a simple but very valuable 
structure. It takes two arguments from the stacks both integer 
numerical values and not flags. 

: IOTA 10 0 DO I . LOOP ; OK 
IOTA 0123456789 OK 

The example word IOTA contains the major elementB of this 
construct. The word DO takes two entries from the stack. The 
first stack entry (entered second) is the counting index of the 
loopr usually just called the index. The second is referred to 
as the limit. On each passage through the loop the index is 
incremented by one and coo^ared with the limit. As soon as the 
index equals the limit the loop is no longer executed. Inside 
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the loop the word 1 places a copy of the index on the stack where 
it can be used. 

Each DO construct must be conpleted by a LOOP in the same word 
definition. The index and limit may be any values. The limit is 
written first because it is laore often passed as an argument. 

• CUBES 0 DO CR I DUP . CUBE . LOOP ; OK 
4 CUBES 
0 0 
1 1 

2 3 

3 27 OK 


CUBES allows the generation of a cube table of any size. The CR 
feeds a line after each number and its cube. Two copies of the 
loop index 1 are made using I DUP. The first is printed and the 
second cubed and printed. 

BEGIN UNTIL 

This structure is a loop whose execution is controlled by a flag 
on the stack. 

i COUNT 4 BEGIN OUP • I* DUP 9 « UNTIL DROP ? OK 
COUNT 45678 OK 

The BEGIN UNTIL loop is always executed at least once. At the 
bottom of the loop until takes a flag from the stack. If this 
flag is true the loop terminates: if it is false the loop is 
repeated until the flag is true. COUNT starts with a nxurber on 
the stack. This number is printed# incremented and compared with 
9. The loop continues until the expression DUP 9 • gives a true 
result. The left over number is discarded by DROP which is used 
to remove an unwanted number from the stack. Unwanted numbers 
should always be removed or they will cause errors later in a 
program. 

BEGIN WHILE REPEAT 

This loop complements the BEGIN tJNTlL loop by providing a looping 
structure in which the conditional test is made at the start of 
the loop. 

5 COUNT2 4 BEGIN DUP 9 < WHILE DDP . 1+ REPEAT DROP J OK 
C0UNT2 45678 OK 

The BEGIN WHILE REPEAT loop is a WHILE construct expressed in 
postfix form. The conditional expression governing the execution 
of the loop precedes WHILE and form a flag which WHILE takes from 
the stack. If this flag is true then the instructions up to 
REPEAT are executedf a loop back to BEGIN occurs and the 
conditional test between BEGIN and WHILE is repeated. Execution 
of the loop continues until WHILE takes a false flag from the 
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stdclc. The loop may not be executed at all if the test is not 
satisfied the first tine it is made* 


Constants And Variables 

Constants and variables are used in Forth to enable a value to be 
referred to by name* Fever constants and variables are used 
compared with other languages for a similar application though» 
as a general rule because Forth users have the stack and number 
literals at their disposal* 

A number literal can be used in only one word so if the same 
value is to be used by several words then it should be made a 
constant. A constant should also be used where giving a name to a 
value makes a program easier to understand. As its name suggests 
a constant should usually be used for numbers which do not alter 
in value during a program. It is possibler none the less, 
occasionally to alter the value of a constant* 

During the execution of a program many numerical and other values 
are generated which are temporary. The stack allows these values 
to be dealt with in Forth whereas in other languages variables 
(or arrays) have to be created for each of them. Values which 
are fundamental to a program or which are used at different times 
should be assigned as variables. When this should be done is a 
matter of judgement* A word which references a variable cannot 
be used in isolation from the variable and so loses modularity* 
Against this use of variables makes programs easier to understand 
and less prone to error. 

Defining constants and variables 

Constanta and variables are kept in the dictionary and have names 
like other words* Instead of being defined using colon though^ 
they have defining words of their own which are used a little 
differently from colon* 

12 CONSTANT t>02tH OR 
57 VARIABLE HEINZ OR 

A constant is defined with its value which is 12 in this example. 
A variable is supplied with its initial value (57). These values 
may be zero if no particular value is needed as an initial value 
but failure to specify soaie value will result in an error. 
CONSTANT and VARIABLE are defining words like colon but their 
action is limited to the number which precedes them and the name 
which follows them and they do not cause other words to be 
compiled and not executed in the way that colon does. 
Immediately after the defining word comes the name of the new 
constant or variable* 
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Uding constants and variables 

Using constants is easy and involves no new ideas. 

DOZEN . 12 OK 
; BAKERS DOZEN 1+ ; OK 

When the name DOZEN is used the value of the constant is pushed 
to the stack. It can be printed using • in the usual way. A 
constant can be incorporated into another word using its name. 
The word 1-^ in BAKERS adds one to the value left on the stack by 
DOZEN and thus leaves 13 on the stack. 

Variables operate a little differently from constants. A 
variable can be thought of as a place where a value is kept and 
so a variable pushes the address and not the value of the 
variable. In order to recover the value of the variable the word 
@ (fetch) is used. This word replaces the address with the value 
stored at that address. Another word 1 (store) is used to place 
a new value in the variable. 

HEINZ @ . 57 OK 
52 HEINZ i OK 
HEINZ 5 . 62 OK 

The user does not need to enter the address at any time; it is 
always referred to by the name of the variable. The use of 9 and 
! may appear tedious in isolation. They serve to make variables 
more flexible in complex applications. The word store takes the 
place of the assignment operator in other languages. Instead of 
writing HEINZ • 62 or HEINZ :• 62 Forth usee 62 HEINZ i . 

t 60UP 41 HEINZ r : OK 
: KISH 15 HEINZ > ; OK 
I MENU HEINZ @ ; OR 
FISH MENU 15 OK 

If a large and apparently meaningless number Is encountered when 
using a variable it is probably the address of the variable and 
indicates a forgotten 9 . The address itself is useful in some 
applications and is obtained sinply by using the name of the 
variable without §. The words 6 and I can be used for any memory 
location and not just variables and are extremely useful 
operators. There is a word ? which is defined as 9 . and prints 
the value of any memory location. It can be used with variables. 

HEINZ ? 57 OK 

Screen Editor 

The editor is made up of Forth words which are used to create and 
edit text. The text may consist of word definitions and other 
instructions and is stored on screens of 1024 characters arranged 
in 16 lines of 64 characbers each. The screens are stored in the 
blocks which the mass storage is divided into and referred to by 
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number. Screens 4 and S are usually reserved for error messages. 
The relevant section entitled operation should be consulted for 
hardware and operating systeoi dependent details of disc drives 
and other mass storage devices. 

The MSX editor resides in the EDITOR vocabulary (see later for 
details on vocabularies) and maltes use of the screen editing 
facilities provided in the MSX ROM. 

In order to edit a screen# type the word n EDIT where n is the 
screen number. If the screen is already resident in a buffer 
then this will cause the screen to be listed and the edit mode 
entered, if not then the system will load it from the tape first. 

In the case of a new screen it is advisable to use the word n 
CLEAR first before using the word EDIT to ensure that the screen 
is properly initialised. This will also cause the screen to be 
loaded if necessary. (As a short cut it is possible to tric)c the 
system into thinking that it haas already loaded a screen by 
pressing CONTROL-STOP after the reading prompt. This will cause 
error # 8 to occur and the reading operation to the aborted. 

STATUS will reveal that the system thinks it has loaded the 
screen. Typing in n CLEAR again will ensure that the screen Is 
initialised and you are ready for editing using EDIT. This short 
cut can be useful if you wish to use a screen for a temporary 
program that you dont want to save and you dont have a tape to 
hand 1 ) 

After liatingr the system is in EDIT mode and the cursor controls 
may be used to move around the screen and write or modify text on 
any of the lines. 

Bach line is preceded with a line number. There must be at least 
one space between the number and the text. When e line has been 
typed it must be entered into the machine using the return key 
just like in BASIC. Be careful to remember this as it is easy to 
think that the data is there because you can see it on the 
screen( 

As just stated, lines consist of 64 characters. Unfortunately# 
the MSX has a 40 line display. This means that potentially each 
FORTH line can occupy one and a half lines on the screen. During 
typing if you wish to extend over the end of a line then the 
following scheme should be used to overcome the peculiatrities 
of the MSX editor. Just prior to the end of the line go into 
Insert mode and insert some spaces or text . This will cause the 
current line to be extended to two lines by scrolling the lines 
below down one position. You may then continue typing the line 
as normal. Note that only 64 characters will be accepted when 
you press return. Any in excess of this will be ignored. 

When you have finished editing press CONTROL-STOP this will cause 
you to exit the editing mode and the OK prompt will return. For 
neatness it is advisable to scroll to the bottom of the screen 
before doing this. If any changes have been made to the text 
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then the screen will be mdtked as UPDATED. This may be checked 
using status if desired. Reaember to use FLUSH or SFLUSH to 
record your changes on the tape before switching the machine off 
or executing any untried program that may crash the machine! 

When a screen is getting fullr it will not be possible to display 
the whole of the screen in one go- To allow editing of the parts 
that scroll off the top when the EDIT comnand is used, the user 
may press any key while the screen is listing- This will cause 
the rest of the listing to be aborted and the edit mode to be 
entered as normal. 

There is nothing special about the line numbers on the screen. 
They are simply there as a prompt to the user. This can be used 
to advantage during editing. If you wish to move or reorder 
lines on the screen simply type over the current line number with 
a new one. Remeinber to press return afterwards to record the 
change. The only limitations are that the line number must be 
between 0 & 15 and there must be a space bewtween the number and 
the text. Qulting and re-listing the screen with EDIT allows you 
to extensively modify screens without getting confused. 

One point should be noted whilst writing programs. FORTH treats 
text screens as a continuous block of 1024 characters. The 
separate lines are purely for users convenience. This means that 
there Is no inferred space at the end of one line and the 
beginning of the next. If a FORTH word uses the last character 
position of a line be sure to leave a space at the start of the 
next to ensure that the interpreter doesnt run two words together 
and cause an error. 

Screens may be moved around using SCOPY. The sequence 50 55 
SCOPy copies screen 50 to 55. 

There is a direct mapping between screens and the blocks of the 
virtual memory system. For the moment the two may be regarded as 
synonymous. There is no screen or block numbered zero. Further 
details of the relationship between the virtual memory system and 
text screens arc given in the subsection of Forth Techniques 
entitled Virtual Memory Systew. 


Using Text Screens 

The purpose of text screens is to allow colon variable constant 
and other definitions and instructions to be stored in permanent 
form. Several of these may make up a complete program covering 
several screens. 

In general any text which makes up a valid executable input line 
can be stored on a screen. When the screen is compiled (called 
loading in Forth) the text on it is treated in exactly the same 
way as input lines are treated. A screen is loaded by typing n 
LOAD where n Is the screen nniaber. If the text on a screen 
contains an error it will be reported in the same way that an 
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error in a input line ie reported. In addition the editor word 
WHERE will show its position on the screen. 

Any of the example word definitions given earlier in this 
sectionr such as CDBE» may be edited on to a screen and then 
loaded. Select an unused screen such as screen 50. Using the 
editorr first clear it with CLEAR (this is important)« then edit 
the definition on to it. Next load the screen by typing 50 LOAD. 
If any error occurs (except MSG 4 ) correct the text using the 
editor . It will be recalled that error MSG 4 simply 
indicates that a word naiie has been used more than once which is 
unimportant in this context. 

A comment may be placed on a screen by enclosing it in round 
brackets ( and ). The usual space must be left between the 
brackets and the conment text. Text within the brackets will be 
ignored when the screen is loaded. 

When related text covers more than one screenr screens may be 
linked by —> pronounced next screen. If this word is placed on 
screen 50f at the end of the text on that screenr then the 
sequence 50 LOAD will also load screen 51. This may be extended 
Indefinitely over consecutive screens. One screen may also load 
another by a LOAD inetruction. For example 52 LOAD could be 
written on screen SO. One screen nay contain instructions to 
load several others and is then referred to as a load screen. 
This sort of load instruction should not be chained through 
several screens chough. 

Interpretation of the text on a screen is ended by ;S or In any 
ease at the end of the screen. 

A title in the form of a coament is usually placed on line 0 of 
each screen and this allows screens to be searched using INDEX. 
For example 1 5 INDEX lists the first lines of screens X to 5. 


Forth Techniques 

This section contains more detailed explanations of some of the 
techniques used in Forth progrananing. 

Parameter and Return Stacks 

The parameter stack is the stack explicitly available to the user 
for the temporary storage of data and passing parameters between 
words. It grows downwards in nemory from its base, whose 
address is stored in the user variable SO (szero). The parameter 
stack shares an area of laeBory with the dictionary, the 
dictionary growing upwards fron low memory and the parameter 
stack growing downwards from high memory. Usually several 
thousand bytes separate the two so there is room for the 
parameter stack to grow to any practicable depth. 
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Generally only a few items should be nianipuiated on the parameter 
stack at any^one time so that the parameter lists for individual 
words can be^kept simple and easy to use. Each word should leave 
only defined parameters on the stack? other values should be 
discarded or they will clutter the stack and make errors 
difficult to avoid. Two types of error are likely to occur when 
using the stack. If the stack grows so large it encroaches on 
the dictionary it is said to have overflowed vhereas if the stack 
is empty and an attempt is made to remove a value from it then it 
is said to have underflowed. The latter error is much more 
coimnon and is very easily made. The stack is tested for overflow 
and underflow after each word is executed but not during the 
execution of a word. This makes execution fast but places on the 
user the responsibility of ensuring that appropriate parameters 
are on the stack for each word to use. 

The value of the stack pointer, the address of the first 
entry is placed on the stack by and the sequence Spe . will 
print the value of the stack pointer while SPl clears the stack. 

There is a second stack in Forth called the return stack. This 
stack, which ia used by the language for the storage of return 
addresses generated when one word calls another, can also be used 
for the temporary storage of values. There 

on this use but it adds a valuable degree of flexibility to the 
parameter stack. 


stack and the 
word SWAP is 
to use >R {to 
return stack 
on top. The 
by the word R 
altering the 


For example if there are two items on the parameter 
second entry is to be used for some purpose the 
often used to make it accessible. Another way is 
R) to move the first parameter stack entry to the 
leaving what was the second parameter stack entry 
value now on the return stack can also be accessed 
which copies It to the parameter stack without 
return stack. 

R can be used any number of times in a word so the return stack 
value can conveniently be used several times in a loop for 
example. The value is recovered by R> which moves one value from 
the return stack to the parameter stack.^ A number of values can 
be shuffled between the two stacks in this way. 

The principle restriction is the >R and R> may only be used in a 
word definition and each >R must be balanced by and R>. No net 
changes to the return stack may be made by a word and the return 
stack cannot be used to pass values betwen words. Additional 
care is needed when using these words inside a DO LOOP construct 
because the index and limit are stored on the return stack. The 
word R which merely copies the first return stack entry to the 
parameter stack without altering the return stack may be used 

freely. 

The return stack grows downwards in memory from its base which is 
stored in the user variable RO (rzero). The value of the return 
stack pointer is placed on the parameter stack by RPf. 
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Relational and Logical Operators 

Ttese operators are used to make comparisons and tests, returning 
flacrs which are most often nsed by the conditional and looping 
Structures. There are a number of words which compare two single 
crecision numbers on the stack. All of these except u< assume 
the numbers being compared to be signed. 0< is used to compare 
unsigned numbers, especially memory addresses. There are two 
unary relational operators, 0» and 0<. O- can be used a 
logical NOT to reverse the state of a flag and 0< to test tne 
sign bit of a number. 

The flags from separate tests can be combined using the logical 
operators AND, OR and XOR. For example the sequence XLEN @1 < 
YLEN @ 16 > OR where XLEN is a variable will generate a tlag 
which will be true if the value of XLEN is either less than one 
or greater than sixteen. More complex conditional statements can 
be written in this way. 


A little care sometimes has to be taken with logical operators. 
The flags returned explicitly by relational operators always use 
one to denote a true result. Combining two or more of these 
flags with logical operators such as AND will give the expected 
result. But if the flag is generated by an Implicit test such as 
- for inequality between two numbers then a (perfectly valid) 
true result might be expressed as a non zero JJJ*” 
one. Since the logical operators work on a bit by bit basis this 
mav give an erroneous result. For example I 1 AND is 1 ^ • 
AND is 0. If a logical operator ie being used then a test such 
as 41 - should be written as 41 • 0«. 


Conditional and Looping Constructs 

This sub section includes illustrations of the applications of 
the conditional and looping constructs to dumping the contents ox 
memory in hex format. 


HEX 


i BYTES 

DO 3 ce 2 .R SPACE LOOP 

: LINE 

CR DUP 0 5 D.B SPACE 

DUP 0 SWAP BYTES ? 

: DUMP 

HEX DUP 80 + SWAP 

DO I LINE TTBRMIMAL 

IP LEAVE EWDIF 8 +1.00P ; 

i DUMP2 

HEX BEGIN DDP LINE 8 + 
7TERMINAL UNTIL DROP ; 


The first word BYTES illustrated a DO LOOP construct where both 
the index and limit are supplied fro* outside the word via the 
stack. The word .R uses two stack entries printing the second as 
a signed number right adjusted in a field whose width is the 
first stack entry. Thus I C# 2 .H SPACE fetches the byte whose 
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address is the value of the index I and prints it suitable 
formatted. BYTES can be tested by a sequence such as 8 0 BYTES 
which would dump the first eight bytes of meiriory. 

LINE dumps eight bytes on a line starting with an address taken 
from the stack. The address itself is printed at the start of 
the line in a field of five spaces followed by a space. A zero 
is pushed in front of a copy of the address on the stack so that 
all addressesr including those above 8000 H^ can be printed as 
positive double precision numbers. The word D.R outputs a signed 
double precision number right adjusted in a field of spaces whose 
width is the first stack entry. DIJP 8 ♦ SWAP form an index (the 
address) and a limit (the address plus eight) on the stack for 
BYTES. 

DUMP uses the DO -fLOOP construct. This behaves similarly to the 
DO LOOP construct except that on each passage through the loop 
**‘LOOP takes a value from the stack which is used to increment the 
loop index whereas LOOP does not take a value from the stack and 
always increments the loop index by one. The value taken from 
the stack by tLOOP may be either positive or negative. DUMP 
takes an address from the stack and dumps 128 bytes. After each 
line of eight bytes the index of the loop/ used by LINE/ is 
Incremented by eight. 

The word HEX at the start of the definition ensures that the 
output is always expressed in hex although the starting address 
may be specified in any base. DUMP also shows the use of the 
word LEAVE which terminates a loop the next time LOOP or ^LOOP is 
reached/ irrespective of the number of times the loop has been 
executed. 

The word 7TEPNINAL returne a true flag only if a key has been 
pressed. This flag is tested by IF and LEAVE is executed only if 
the flag is true. When PUMP is used pressing any key causes the 
dump to stop at the end of the current line. in this example an 
IF ENDIF clause is nested ineide a DO LOOP clause. The 
conditional constructs may all be nested in this way but the 
scope of one construct must be wholly contained by the construct 
within which it is nested. For example DO DO LOOP LOOP and IF DO 
LOOP ENDIF are valid sequences but IF DO EMDXF LOOP is not. 
Several levels of nesting may be used although it is best to use 
more and shorter word definitions and fewer levels of nesting 
within a word definition wherever possible. 

DUMP2 shows how LINE can be placed inside a BEGIN UNTIL loop. On 
each passage through the loop LINE uses a copy of the current 
value of the address and the address is incremented by eight. 
The flag generated by 7TERM1NAL is tested by UNTIL and the loop 
is executed until this flag is true. Memory is dumped 
indefinitely until a key is pressed. 

The second set of examples shown here is concerned with dumping 
memory in ASCII format. The main problem to solve is the 
treatment of control and other non printing characters. 
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BBX 


{ ASCBYTE 


. ABYTES 
s ALINE 

! ADUMP 


DUP 20 < OVER 7F s OR 
IF DROP 2B EMIT 
ELSE EMIT 
EMDIP SPACE ; 

DO SPACE I CO ASCBYTE LOOP ; 
CR DUP O 5 D.R SPACE 
DUP 0 + SKAP ABYTES ; 

DUP 80 + SMAP 

DO I ALINE 7TERM1NAL 

IP LEAVE ENDIF S +LOOP t 


The role of ASCBYTE is to take and ASCII character from the stack 
and print it if possible or else to print a dot. A copy of the 
character is tested to see if it has a value of less than 20 hex 
and a second copy to see if it has a value of 7F hex. The flags 
resulting from these tvo tests are coabined with the logical word 
OB and if either of them gives a true result then the unprintable 
ASCII character is dropped and a dot (2B hex) is printed instead. 
The three words ABYTES ALIME and ADUMP follow the pattern of 
BYTES LINE and DUMP above. 

The appearance of the output generated by these dump words could 
be Improved by using the number formatting words to produce 
number output right adjusted in a field of seros. They could 
also be more tightly* though lees legibly* written but this is 
not usually desirable unless time is a critical factor. 

The DUMP words shown above are already included in the core 
language supplied. 


Numbers and Arithmetic 

The core language contains operators for manipulating single and 
double precision integers. Internally these are represented in 
binary twos complement form with single precision numbers 
occupying one stack entry or two bytes and double precision 
numbers occupying two stack entries or four bytes. Numbers can 
be input and output in any base according to the value of the 
user variable BASE. 

When a number is entered it is converted to binary and pushed to 
the stack. An ordinary number which is a sequence of digits* 
possibly preceded by a minus sign, is automatically treated as 
single precision. The two bytes used by these numbers allow the 
representation of 65536 distinct integer values. This range is 
used in two ways: 

0 ... 32767 32768 ... 65535 

0 ... 32767 -32768 ... -1 
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Either positive numbers froB 0 to 65535 or both positive and 
negative numbers from -32768 to +32767 can be represented. The 
same binary values are used in each case and whether they 
represent unsigned or signed numbers depends on the context. The 
operator . (dot) which prints the first stack entry always 
interprets a number as signed. There is another operator U. 
(udot) which prints the first stack entry as an unsigned number. 

-1 . -X OK 

-1 U. 65535 OK 

Unsigned numbers are particularly relevant to memory addresses 
since the range (0 to FPPP in hex) alows any part of memory to be 
accessed. 

The words ♦ - 1+ 2+ can be used with both signed and unsigned 
numbers. All the other single prcision operators treat numbers 
on the stack as signed. 

Double precision numbers have a range of -2 147 403 648 to 2 147 
493 647 signed and 0 to 4 294 967 295 upsigned. A double 
precision number is entered by including a point as part of the 
number. The position of the point may be meaningful to the user 
but is otherwise unimportant. The number needs two stack entries 
with the most significant part nearer the top of the stack. It 
can be printed using the operator D. <ddot). 


12 

a 

12 

OK 

12. 

D. 

12 

OK 

12. 

+ a 

0 12 

OK 


The last example shows that of the two stack entries which make 
up the double precision number 12 the first is lero because 12 is 
a positive number within single precision range. 

Since Forth is a typeless language single and double precision 
numbers are not formally separated. Both types can be used in 
the solution of a problem. The word S->D converts signed numbers 
from single to double precision? the reverse is effected simply 
by discarding the high order part. Conversion is often avoided by 
using the mixed precision operators. 

An unusual operator is */ (star Slash) which is used to express 
fractional quantities. 

: RATIO 23*/? 

2712 RATIO . 1808 OK 

The number 2712 is first multiplied by 2 and then divided by the 
first of the three stack entries 3. The intermediate value is 
double precision. The value of PI can be expressed to six 
figures as 355 113 */. 
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Another useful word is /MOD vhicb gives the exact result of a 
division by returning both the quotient and remainder. For 
example seconds can be converted to hours minutes and seconds by 
two successive uses of the phrase 60 /MOD- The words MAX and MIN 
are used to restrict the range of numbers. MAX takes the first 
two stack entries end returns the larger; HIM leaves the smaller, 
ijihg sign of a number is reversed by MINUS and its absolute value 
given by ABS. There are double precision equivalents of these 
words DMINUS and DABS. 

Twos complement numbers may be new to some users. Briefly this 
means that negative nuiibers are formed by subtracting their 
absolute value from aero. Overflow is always ignored so the next 
number after -1 which is also 65535 as an unsigned single 
precision number is aero. Similarly if two positive single 
precision numbers are added to give a sum greater than 32767 
there is overflow and a negative result- But the overflow is not 
reported as an error because the result interpreted as an 
unsigned number is correct. 


High level defining words 

The words : (colon) CONSTANT and VARIABLE are all used to define 
other words. They are referred to collectively as defining 
words. They perform the compiling function in Forth. In Forth 
the defining words and so the coapiling process can be modified 
and added to just like the rest of the language. This section 
examines how this is done for words which handle data like 
CONSTANT and VARIABLE. The compilation process started by ? is 
usually concerned with sections rether than data and is 
considered separately. 

Since variables are a basic idea found in nearly all languages 
they tend to be taken for granted. In Forth variables ate a 
convenient starting point for considering how to manipulate data. 
A variable is simply a place to put a value. The variable is 
given a name so it can be used conveniently. The name refers to 
the place and the value In the variable can be used or altered by 
getting it from the place whets it is kept. This process is 
explicit in Perth. Using the name of a variable places the 
address where the value of the variable is kept on the stack. In 
order to use the value of the variable the word § (fetch) has to 
be used to replace the address with the value on the stack. 

New variables are defined using the defining word VARIABLE in a 
sequence such as 57 VARIABLE HBIM2. The action of the defining 
word VARIABLE is to make a new entry in the dictionary for the 
word HEINZ, reserve a place which is where the value of the 
variable will be kept and put its initial value of 57 there and 
then ensure that when HE1N2 is used it places on the stack the 
address in memory where the value of the variable is kept. All 
these actions are controlled by the definition of the defining 
word VARIABLE. Belw is ehown a possible definition for 
VARIABLE. 
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: VARIABLE <BDILDS , DOES> ? OK 


The three elements of this definition <BDILDS , (comma) and DOES> 
correspond to the three actions o£ VARIABLE described above. The 
first word <BUILDS ensures that VARIABLE makes an entry in the 
dictionary . The entry contains the name of the new variable 
such as HEINZ and some other information and is often referred to 
as a header. Its format is common to nearly all words in tno 

dictionary. 


Secondly , (coitjnaJ takes the initial value of the variable 5 7 
which is on the stack and puts it next to the header. This is 
the place where the value of the variable is kept. 

Finally DOES> ensures that VARIABLE ensures that when HEINZ is 
used it leaves on the stack the address of the place where the 
value of the variable HEINZ is kept* 


Three distinct actions axe involved when <BOILDS and DOBS> are 
used. first « defining word such as VARIABLE is laefined using 
<BgiLDS and DOES>. Secondly a particular variable such as HEINZ, 
which is one of many such variables is defined using the defining 
word VARIABLE. Thirdly the new variable HEINZ is used leaving its 
address on the stack* 


The words <BU1LDS and DOBS> axe called high level defining words. 
These are moat Important words which allow the creation and 
manipulation of data structures chosen by the user « 
units. Each type of data structure has a defining word. Tne 
defining word uses <BUILDS to specify how the data structure is 
built up and D0B5> to specify how the data is accessed. They 
form one of the most powerful features of the language. 


Examples of data structures include variables, constants, arrays 
and string variables. Variables and constants are predefined in 
the core language. Forth offers the user freedom to add hew data 
structures without any limit on their complexity or degree of 
specialisation. 


The high level defining words are used in the following way. 

: defining word name <BUILDS defining time code DCES> run time 
code; 


When the defining word is used <BOILDS creates a dictionary 
header for the new word. The code folowing <BUILDS specifies the 
form of the new word in the dictionary and inserts the initial 
values of the data. DOES> leaves the address of the start of the 
data on the stack when the new word is used. The code following 
DO£S> is executed when the new word is used and usually accesses 
the data using the address of the first byte supplied by DOES>. 
^hLe actions can be illustrated by the definition of CONSTANT 
shown below. 


• CONSTANT <BUILDS , DOBS> § ; 
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The defining word CONSTANT is used to define constants in a 

12 CONSTANT DOZEN. The code following <BUILDS 
^n the definition of CONSTANT is , (comma) which ensures that 

* - which ie the initial value of the constant 

DOZEN, in tne parameter field of DOZEN- The code following DOES> 
» (fetch). The code is executed when DOZEN is used and uses 
left bv DOES> to recover the value of the constant. 

for the difference in the behaviour 

their values and 


such as 
definition 
CONSTANT places 12, 

in the parameter 
is @ (fetch). 
the address left by 
The inclusion of f accounts 
of constants and variables, 
variables the address of their 


Constants 

values. 


return 


The next example shows the definition of a defining word A^AY 
which is used to define one dioiensional arrays. AKRAY is used in 
the following way s 


50 ARRAY AVERAGES 


Defines an array AVERAGES dimension 
by fifty. The initial value of 
elenent of the array is zero. 


one 

each 


41 AVERAGES 


Leaves on the stack the address of the 
4ISt element of the array AVERAGES. 
Bach element can be manipulated using % 
( and *i in the same way as a variable. 


The definition of the defining word ARRAY is shown below. 


; ARRAY 


<BU1LDS DUF « 

DUF 2 * HERE SWA? ERASE 
2 • ALLOT 


D0ES> SWAP 1 MAX OVER ^ MIN 
2 • + ? 

The words after <BU1LDS allocate space in the dictionary for the 
elements of the array and fill this space with ^hua 

initialising each element to zero. Two bytea are needed for each 
element and two bytes at the beginning store the size of the 

array. 

oyp Writes a copy of the array size in the 

parameter field of the array (50 in 
AVERAGES) 

DUP 2 * HERE SWAP ERASE Erases or fills with zeros two bytes 

for each element from the dictionary 
pointer given by HERE. 

2 * ALLOT Reserves two bytes in the dictionary 

for each array element by advancing the 
dictionary pointer. 

The data structure is now a size which is used for checking the 
validity of subscripts followed by the array itself. 


33 



When an element of the array is called by a sequence such as 41 
AVERAGES, DOES> and the words after it come into play. These 
words check the validity of the subscript and return the address 
of the desired element. 


Word 

DOES> 

SWAP 
1 MAX 


Stack contents first entry at left 

data address subscript The subscript is supplied 

when the array is used. 

subscript data address , 

subscript data address Mlnimui. subscript value 

of one. 


OVER @ MIN subscript 


data address 


2 * + 


element address 


Maximum subscript value 
of si2C, Size is stored 
at the data address. 

Left on stack. 


the 

the 

the 

to 


The action of DOES> is to leave on the stack the J!?? 

first byte of data referred to here as the data address. All 
other data is accessed by adding an offset to this address. In 
the of «r*ys defined using ARRAY the first two bytes 

contain the size of the array. The address 5^ 

Subscripted element is the data address 

The subscripts are from 1 to 50 in the case of AVERAGES and 
address of each element is found by 
subscript value (there are two bytes for ^ 

data address. If the subscript supplied via the 

AVERAGES is lees than one then the Iddre« 

la returned? If the subscript is greater than 50 then the address 
of the last element is returned. This arrangement is sufficient 
to prevent corruption of memory outside the array. Instead an 
S?ro? mtSSagr SSch as ARRAY SUBSCRIPT OUT OF BOUNDS could be 
generated or^lf speed is a priority then no error checking at all 
may be appropriate. The user is free to choose. 

once ARRAY has been defined then many 

sizes can be added using ARRAY. Bach array will behave in the 

same way. Each array will consist only of a 

(so it^can be found in the dictionary) and passive 

active instructions are in the defining word ARRAY hv 

this set of instructions is shared by all the arrays defined by 

ARRAY which is a highly efficient arrangement. 


vocabulary Control 


The dictionary of the core language is a single linked list of 
word names. Each word name contains a pointer to the previous 
entry in the dictionary. The text interpreter begins a search 
for a word name at the latest dictionary entry. If a new word is 
defined using a name which already exists then the original 
definition is no longer accessible because the new one is found 
first and therefore used. Other words which contain the older 
version as part of their definition are not affected because 
their compiled code contains the address of the older version. 
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still it might none the less be useful for one or more words to 
share the same name and yet be accessible and this is achieved by 
vocabulary control. 

Vocabulary control provides the primary means of grouping 
together in the dictionary words with related functions. The 
core language contains a vocabulary word FORTH. A vocabulary 
word has in its parameter field a pointer to the latest entry in 
the vocabulary. Each time words are added to the vocabulary this 
pointer is updatred. When the vocabulary is referenced when the 
user variable CONTEXT is set to contain the address of the 
pointer field within the vocabulary word with the result that all 
dictionary searches for word names begin with the latest entry in 
that vocabulary. The word DEFINITIONS copies the pointer field 
address in CONTEXT to the user variable CURRENT with the result 
that newly defined words will be added to that vocabulary. 

The core language consists of a single vocabulary called FORTH. 
Until other vocabularies are added the latest entry in this 
vocabulary is also the last word in the dictionary. A new 
vocabulary is added using the vocabulary defining word in a 
eeguence such as VOCABULARY EDITOR which creates a new vocabulary 
called EDITOR. The sequence EDITOR DEFINITIONS allows words to be 
added to the new vocabulary. When the editor is loaded the 
dictionary contains two words with the name I. The sequence 
EDITOR I gives I the meaning insert text from PAD while FORTH I 
gives I the meaning of copy the index inside a DO LOOP construct 
to the stack* 

By convention vocabulary words are made immediate so the complete 
defining sequence for the vocabulary word EDITOR is VOCABULARY 
EDITOR IMMEDIATE. This means that both the meanings of 1 can be 
used in the definition of another word. If the vocabulary word 
itself is to be part of a definition then the sequence [COMPILE] 
EDITOR must be used to force compilation. 

Whenever the word FORGET Is used to discard words from the 
dictionary the CONTEXT and CURRENT vocabularies must be the same. 
DEFINITIONS may be used to set the CURRENT vocabulary to the 
CONTEXT vocabulary. 

Formatted number output 

The number output operators are used to convert a binary number 
to a string of ASCII characters and format the result with spaces 
and other non numeric characters as required. The string is 
built up at PAD and is usually output by TYPE when it is 
complete. 

A number is converted to digits by repeatedly dividing by the 
current value of BASE. The remainder of each division forms one 
digit of the number starting with the least significant digit. 
Consequently the character string is built up from right to left. 
Other characters arc inserted as required. The number actually 
converted is always an unsigned double precision value. Single 
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precision numbers must always be converted to double precision 
first. A sign is added in a separate operation. 

The conversion process is started by <# whcih initialises the 
user variable HLD. hld contains a pointer to the left most 
character in the string which grows downwards in memory from PAD. 
The word # converts one digit frooi a double precision number on 
the stack by dividing it by the value of BASE. The double 
precision quotient is left on the stack and the remainder is 
converted to an ASCII character and inserted in the character 
string. The word Is performs the action of | repeatedly until no 
more significant digits can be generated and a double precision 
zero is left on the stack. Both # and IS always produce at least 
one digit even if it is zero. 

The word Sign is used to test the sign of a signed number and add 
a minus sign to the string if the number is negative. SIGN uses 
the third stack entry, immediately under the double precision 
number being converted* which must be a copy of the high order 
part of the double precision number made ^fore DABS is used to 
make the number unsigned for conversion into digits. 

Other characters oan be inserted into the string when required by 
the sequence c HOLD which inserts the character c. Finally #> is 
used to c«nplete the process by dropping the double precision 
number on the stack and leaving the address and character count 
of the character string for use by TYPE. 

: (JD. <« IS #> TYPE SPACE ; 

: D. SWAP OVER DABS 

<1 IS SIGN #> TYPE SPACE; 


In the first example UD. outputs an unsigned double precision 
number from the stack using «S to generate all the significant 
digits with no other characters. The second shows a possible 
definition of D. (which is in the core language). The sequence 
SWAP OVER DABS makes a copy of the high order part of a double 
precision number on the stack in the third stack entry position 
before DABS forms the absolute value of the double precision 
number. The third stack entry is used by SIGN, which adds a 
minus sign to the character string if It is negative. 

Single precision numbers must be converted to double precision 
before they can be operated on by the number formatting words. 

: U. 0 

<# IS #> TYPE SPACE j 
: . DUP ABS O 

<1 #S SIGN |> TYPE SPACE j 

U. outputs an unsigned single precision number which is converted 
to double precision by pushing a zero in front of it on the 
stack. In the signed word . a copy of the number is made as the 
third stack entry for use by SIGN. The sequence DUP ABS 0 is 
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mote economical than S->0 SNAP OVER DAB$« 

These examples show the basic sequences needed to output single 
and double precision signed and unsigned numbers. Below are two 
more sophisticated examples of formatting. 

HEX 

: ZEROS 
; UD.ZR 


: SEX 
s .TIME 


DECIMAL 

UD.ZR outputs a double precision number occupying the second and 
third stack entries right adjusted in a field of zeros whose 
width is the first stack entry. Thus it behaves similarly to 
O.R. In UD.ZR the field width is kept on the return stack while 
number conversion takes place. After number conversion ends 
with #> the count and address of the character atring 
representing the number is left on the stack. The field width is 
restored to the parameter stack by R> and OVER - copies the count 
over the field width and subtracts it from the field width. The 
difference between the two is used by ZEROS to fill the unused 
part of the field with zeros from the left and then the character 
string la added by TYPE. 

ZEROS takes one value from the stack and outputs that number of 
zeros. Nothing is output if the number is leas than one. Note 
that -OUR duplicates the first stack entry only if it is non aero 
and chat IF is used to make an implicit test for a non zero 
value. Because numbers output by • are always followed by a space 
the ASCII sequence ^0 emit rather then 0 • has to be used inside 
the loop to output each zero. 

The word .TIME takes a double precision number from the stack 
representing seconds and converts it to an output of hours 
minutes and seconds in the format 00:00:00. For the seconds and 
minutes (remembering that the character string is built up from 
right to left) .TIME uses SEX to convert one digit in the decimal 
base followed by one in base 6. Between the pairs of digits a 
colon is inserted by 3A HOLD where 3A is the ASCII code for ; 

Two hours digits are converted in the decimal base. 

Characters and Strings 

Single characters are usually placed in stack entries where the 
ASCII value of the character occupies the lower seven or lower 
eight bits of a sixteen bit stack entry. A character can be 
output from the stack using EMIT, The sequence c EMIT outputs 


0 MAX -DUP 

IP O DO 30 EMIT LOOP ENDIP ; 

>R 

<# #S i> 

R> OVER - ZEROS TYPE j 
# 6 BASE j « DECIMAL ; 

<# SEX 3A HOLD SEX 3A BOLD « « «> 
TYPE SPACE ; 
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the character whose ASCII value is c to the screen. EMIT, which 
is used for all output of characters# increments a user variable 
named OUT each time it is used* The value in OUT can be used to 
control output formatting. 

There are three predefined words for outputting particular 
characters. SPACE and Cfi output a space and carriage return 
respectively and require no stack entries. SPACES takes one 
stack entry and outputs that number of spaces. 

A character can be placed on the stack by specifying its ASCII 
value as a number. A character may also be obtained from the 
keyboard by the word KEY which waits for a key to be pressed and 
places the ASCII value on the stack. 

Strings are not usually themselves placed on the stack. Instead 
a string is stored in memory and its address and sometimes a 
count of Its characters manipulated in the stack. Strings are 
usually read from the normal input text usin^ WOFD. The sequence 
c WORD scans the input text until the delimiter character c or 
the end of text marker ASCII zero is found. Leading examples of 
the delimiter character axe ignored. The text enclosed in this 
way is moved to the dictionary pointer preceded by a byte 
containing a count of the number of characters. The dictionary 
pointer and the free area of memory immediately above it is a 
convenient temporary location and its address is placed on the 
stack by HERE. 

The text interpreter of the language itself uses HOAD to 
intrerpret text typed at the keyboard or stored on screens. The 
delimiter is usually a space. Thus for general purposes it is 
often desirable to move the string away from the dictionary 
pointer to anotyher temporary location for further processing. 
This is provided by RAD which returns an address €4 bytes after 
the current value of the dictionary pointer. 

There are a number of words for manipulating memory regions that 
are specially useful for text processing. The sequence address 
count byte FILL fills an area of memory with the specified byte 
starting at the address and for the number of locations given by 
count. Two special cases of PILL are address count ERASE and 
address count BLANKS which fill a memory region with zeros and 
spaces (ASCII 20 hex) respectively. A fourth important word is 
CMOVE. The sequence sourc?e destination count CHOVE moves the 
number of bytes given by count from the source address to the 
destination address. The bytes with the lowest memory address 
are mopved first and care must be taken if the source and 
destination areas overlap. 

An example of the use of these words is shown below in the word 
TEXT which is on the first editor screen. 

: TEXT HERE C/L 1 + BLANKS 

WORD 

HERE PAD C/L 1+ CMOVB ; 
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The sequence c TEXT scans the input text stream and moves text 
enclosed by the delimiter c to PAD. The constant C/L returns 
the number of characters per line. The sequence HERE C/L 1+ 
BLANKS fills an area of memory starting at the dictionary pointer 
and one more than C/L bytes long vith spaces. Then WORD takes 
the ASCII character from the stack and encloses text placing at 
the address of the dictionary pointer. The sequence HERE PAD C/L 
1+ CMOVE moves the string to PAD. 

The usual space must be left between TEXT (or a word which uses 
TEXT) and the string being read. At the end of the string must be 
the delimiter character. For example BL TEXT where BL is a 
constant returning an ASCII space will enclose text up to the 
next space while HEX 22 TEXT will enclose text up to the next 
quotation marks " whose ASCII value is 22 hex. To enclose all 
the text on a line the convention is to use 1 TEXT since an ASCII 
1 is unlikely to be in the text being scanned. 

Once a string is at PAD it can be processed further or stored in 
a string variable or in the blocks of mass storage or wherever it 
is required. A simple defining word for a string variable is 
below. 

I ^VARIABLE <BUILDS HERE C/L U BLANKS C/L K ALLOT 

DO£S> } 

$VARIABLE TEST 

The action of <BU1U)S and DOES> is explained in detail in the 
subsection on high level defining words. TEST behaves like an 
ordinary variable in that it returns an address. Instead of 
having two bytes to store a number it has C/L bytes to store a 
string because the defining word $VARIABLB contains the sequence 
C/L 1*^ ALLOT. These bytes are initialised to spaces by the 
sequence HERE C/L It BLANKS. A String can be moved from PAD to 
TEST by PAD TEST C/L 1+ CMOVE. 

On a disc system the blocks of mass storage are usually the best 
place to store strings. Otherwise it may be worth developing 
more sophisticated versions of ^VARIABLE. 

Strings and text in general can be output using TYPE. The 
sequence address count TYPE outputs a string of n characters 
where n equals the count stored at the address. Note that only 
the characters of the string thesiaelves ace in memory this time. 

If the string is in the frequently found and very useful format 
of a byte containing a count of the characters in the string 
followed by the characters then the sequence addr COUNT TYPE will 
output the string. This tisie the address is that of the byte 
containing the count and CODNT will form the correct arguments on 
the stack for TYPE. 

Frequently there are several spaces after the last significant 
character in a string and these can be eliminated by -TRAILING. 
This word is used iiimedtately before TYPE in a sequence such as 
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address count “TRAILING TYPE and adjusts the count to avoid 
outputting spaces unnecessarily- The string itself is not 
altered. 

The protocol used by FORTH is sCAsetiiies described as user driven. 
There is no prompting as such and the system waits for input 
instructions which are carried out and then simply waits for 
further instructions, Mumbers required as parameters precede and 
text follows the words that use them. This arrangement is very 
general and a highly desirable attribute of a self extending 
language. An individual program may require a prompting system 
and close control of input. Like most things in FORTH this can 
be provided. 

The word QUERY accepts a line of up to eighty characters to the 
terminal input buffer whose address is available in the user 
variable TIB. A line in this buffer can be processed easily with 
WORD. The sequence address count EXPECT accepts a line of 
characters from the keyboard with a naximum number of characters 
equal to count and terminated in any case by RETURN. The 
characters are stored at the address and the end of the line is 
marked by three ASCII teroe. expect, which is used by QUERY and 
the language itself for accepting input, is somewhat primitive 
recognising only backspace as a control key and treating all 
other keys as data. A more sophisticated version of EXPECT could 
be written to user requirements even for general purpose use. 

With these words it is possible to define input words similar to 
those found in other languages. 

I GET$ QUERY 1 TEXT ; 

t GET# QUERY 1 TEXT PAD NUMBER ? 

The word GETS awaits the input of a string and moves it to PAD. 
It could be included in a sequence with a prompt such as CR 
Enter answer * GST$« 

It is often desirable to be able to convert strings of characters 
to numbers. This can be achieved by NUMBER which is used in a 
sequence such as address NUMBER and converts a string stored at 
the address (including a byte with a character count) to a double 
precision number with reference to the current base. An invalid 
character will result in error MSG O. An example of the use of 
this word is shown in GET! which returns a double precision 
number. 

Colon Compiler 

The text interpreter, which interprets the text typed at the 
keyboard and stored on screens, has two nodes. In the execute 
mode words are searched for by name in the dictionary and then 
executed and numbers are pushed to the stack. When : (colon) is 
used to start the definition of a new word the text interpreter 
enters its compile mode. In this mode it generates the threaded 
code which represents c<mipiled Forth. Words are still searched 
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for by name in the dictionary but are not executed; instead their 
addreses are added to the definition of the new word being added 
to the dictionary* Nuinbers are also written into the threaded 
code preceded by a literal handler which will push the number to 
the stack when the code is executed. 

The word : forms a dictionary entry for the name of the new word 
it defines. It also places the text interpreter in the compile 
■ode by setting the value of the user variable STATE to CO hex. 
The word ; completes a definition by, among other actions, 
setting the value of STATE to zero which restores the execute 
■ode. Inbetween the two words and niimbers are compiled and not 
executed unless instructions ace given otherwise. This 
subsection is concerned with those instructions and controlling 
the compilation process. 

There are some words whose function Is to control compilation 
itself. These words are called immediate words and they are 
executed and not ccwpiled in the compile mode. The word ; 
(semicolon) is an immediate word because it executes to terminate 
the definition process rather than itself being compiled. A word 
is made an immediate word by writing the word IMMEDIATE after its 
definition. 

By convention vocabulary words are made immediate so that 
different vocabularies can be selected during a definition. To 
Include a vocabulary word in a definition it must be compiled and 
not executed even though it is an itnmediste word. This is achived 
by [COMPILE] which forces compilation of the word which follows 
It even if It is isimediate. Thus including [COMPILE] EDITOR as 
part of a definition would make the vocabulary word EDITOR part 
of the new word being defined rather than select the editor 
vocabulary during the definition. 

A second variation on this theme is to cause words which are not 
immediate words to be executed and not compiled inside a colon 
definition. This is done by enclosing them in the square 
brackets [ and ]. [ is an immediate word which sets the value of 
STATE to zero thus placing the text interpreter In the execute 
mode? 1 places the text interpreter in the compile mode. For 
example the sequence [HEX] will change the number base to hex 
during the definition. HEX does not become part of the 
definition. 

An important use of I and 1 is the evaluation of expressions at 
compile time- If the sequence 27 3/ was part of the definition 
of a word then the division would be carried out when the word 
was executed. If the sequence is changed to [ 27 3/ 1 LITERAL 
then the division will be carried out when the word is compiled 
and the result compiled as a number literal. The sequence (27 3/] 
enters the execute mode, forms the result of the expression on 
the stack and returns to the compile mode. The imniediate word 
LITERAL compiles the first stack entry as a number literal. This 
process can be extended to less trivial expressions. Each 
component of the expression must, of course, be a constant. 
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The definition of LITERAL itself provides the final example, in 
which one word, usually an inisediate word# compiles another when 
it is executed. 

: LITERAL STATE g IP COMPILE LIT , ENDIF ? IMMEDIATE 

LITERAL first tests the value of STATE and does nothing if the 
text interpreter is in the execute mode. The word COMPILE will 
cause the word that follows it# in this case the number literal 
handler LIT, to be ccoipiled when LITERAL is executed. The word , 
(comma) will put the number on the stack when LITERAL is executed 
into the compiled code after the code for LIT. Thus in the 
compile mode LITERAL will compile the first stack entry as a 
number literal. 

A word in Forth can include itself in its definition. This 
process la called recursion and allows the computation of 
functions which can be defined in terms of themselves. For 
example the factorial function can be defined ass 

factorial (1) • 1 

factorial (n) w n * factorial (n-1) 

This can be written in Forth as: 

: CALL LATEST PPA CPA # ; IMMEDIATE 

I FACTORIAL DUP 2 < 

IP DROP 1 

ELSE DDP 1 - CALL * 

EKDIF ; 

FACTORIAL is usad in a sequence such as n FACTORIAL and returns n 
factorial on the stack. The immediate word CALL obtains the code 
field address of FACTORIAL and usea coaifoa to add it to the 
compiled code. FACTORIAL cannot be referred to by name while it 
is being defined because the definition is not complete. Although 
the factorial of a number less than one is undefined, the 
definition shown will return to one# providing a safe exit if a 
number less than one is given as a parameter. 


Floating Point Extension 

The floating point extension la designed to be as closely 
integrated as possible with the rest of the language and follows 
the same conventions and procedures as single and double 
precision numbers. The floating point operators have their own 
vocabulary and are made available be the vocabulary name 
FLOATING. 

It will be recalled that a single precision integer is written as 
a sequence of digits with no other characters and that a double 
precision integer is written as a series of digits including a 
point. Floating point numbers are written as a series of digits 
including a comma and may include an exponent preceded by E. 
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only the decimal base nay be used for the input (and output) of 
floating point numbeirs. Below are soaie examples of the different 
types of number. 

single precision integer 0 1 -34 31345 

double precision integer 0. 1. -34. 200000. 

floating point 0»0 1»0 -34,26 2,0E5 2,OE-5 

(jp to nine significant decinal figures nay be used. Nuinbers with 
a magnitude between 1,4693680£-39 and I,7014116E36 can be 
represented together with zero. A floating point number can be 
printed by P. which generates eight significant figures after 
rounding the ninth figure plus an exponent, in standard forin. 

Each floating point number occupies three stack entries of six 
bytes. The words PDUP PSMAP FDROP POVER and F2DUP allow the 
numbers to be manipulated on the stack; they are equivalents of 
the single precision stack operators. The basic arithmetic 
operations are performed by P+ F- P* and F/ while FABS returns 
the absolute value of a floating point number. The defining 
words FCOl^STA^^T and FVARIABLE allow floating point constants and 
variables. The value of a variable is obtained from the address 
its name leaves on the stack by and a new value stored in it 
by FJ. 

The word FLOAT allows e double precision integer and a single 
precision integer deciisal exponent to be converted to a floating 
point number. For example 123. *2 FLOAT will form the floating 

point number l,23OB0. inside e DO LOOP construct the index, 
placed on the stack as a single precision integer by I, can be 
converted to a floating point number using S->D to convert It to 
double precision and FLOAT. 

t PCOUNT FLOATING lO 0 DO I S->D 0 FLOAT CR P. LOOP } 

The vocabulary word FLOATING must be used inside the definition 
to select the floating vocabulary because colon automatically 
sets tho context vocabulary equal to the current vocabulary. 

Floating point numbers can be converted to double precision 
integers using INTEGER which truncates any fractional part. 

A full set of relational operators allow tests and comparisons 
involving floating point numbers• The flags generated can be 
used by the usual BEGIN UNTIL and BEGIN WHILE REPEAT constructs 
and the IP ELSE ENDIF construct. 

Each floating point number is made up of a single precision 
exponent representing a power of two and a double precision 
fractional part. The latter is a signed twos complement number 
with an imaginary binary boint after the sign bit which is the 
most significant bit. It is also shifted as far to the left as 
possible and the expoikent adjusted appropriately. The whole 
number is the product of the fractional part and two raised to a 
power equal to the exponent. The internal accuracy is governed by 
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the fractional part and is the save as that for double precision 
integers of slighly better than nine decimal figures. It should 
be remembered thongh that certain simple numbers ( 0,1 for 
example) become irrational when expressed in binary. The range 
is governed by the exponent which must lie between -128 and +127 
and internally is a byte length signed twos complement number. 

Overflow is not reported mainly because of the nature of the twos 
complement binary exponent. A calculation may overflow 
internally to a considerable extent but give a correct result on 
output provided the final answer is within range. As with 
integer arithmetic division by zero returns the maximum possible 
value with the appropriate sign. 

FLOATING DEFINITIONS 
3 P+J EOF >ft P+ R> FI ? 

3 FMINUS >R DMINUS R> j 

In the two examples above FLOATING DBFINITIONS has made FLOATING 
the current vocabulary so FLOATING is not needed inside the 
definitions. The word F+! behaves similarly to *l and can be 
used to increment the value of a floating point variable. When 
F+l ia uaed in a sequence such as 1,35 TOTAL F+i where total la a 
floating point variable one copy of the address of the variable 
ia kept on the return stack and the addition performed on the 
parameter stack. In the second example the binary exponent is 
stored on the return stack while the sign of the fractional part 
is reversed using the double precision operator DMINUS. 

Floating point numbers are a comparatively little explored area 
of Forth. Integers should not be neglected though and should 
continue to be used for counting, loop control and those 
applications where the speed and accuracy of integer operations 

are required. 

The output of floating point numbers may be formatted. The 
paragraphs below should be read in oonjunction with the 
subsection entitled Pormatted Number Output which describes the 
process for Integer numbers. 

1 OUTPUT SNAP OVER PABS 

<# BASE 9 H/MOO ROT DROP 
7 0 PO I LOOP 2C HOLD 
fS SIGN #> TYPE ; 

2 F (F.) 

>R OUTPUT R> 

■ Jf" 

The example above shows how the number formatting operators may 
be used to output floating point numbers In the format 
O.OOOOOOOEO. The principles employed may be used to produce any 
desired format. 
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fi the word F. the operator (F. )* which is a. primitive in the 
LOATING vocabulary* converts a floating point number on the 
tack to a double precision integer greater than or equal to 1E8 
lit less than ILS and a single precision integer decimal 

E xponent. 

he double precision integer has two special features. It has 
sen rounded in the ninth significant figure and there is an 

i pplied decimal point between the first and second significant 
Igures. 


jts range 
these 
Thus in 

C iscarded 
ould be 
figures 


The word OUTPUT shows how this number may be formatted, 
indicates that it contains nine decimal digits and each 
must extracted although sosie may then be discarded, 
the example the ninth least significant figure is 
by the sequence BASE @ M/MOD ROT DROP. More figures 
discarded by placing this sequence in a loop. Seven 
are added to the ASCII string by the sequence 7 0 DO # 


LOOP. Finally, after inserting the decimal comma, the most 
significant figure is added to the string by S#. The total number 
of figures dealt with nust always add up to nine. 


Returning to F. the deciibaX exponent is stored on the return 
stack while the rest of the nunber is processed by OUTPUT. The 
decimal exponent is a single precision integer whose value has 
been adjusted to reflect the implied poslton of the decimal 
point. In this example it is output simply by DOT but it could 
be formatted differently if desired. 


Floating Point Arithmetic Operators 


Mord 

Stack 


P«» 

fnl fnZ 

fnl4fn2 

P- 

fnl fn 2 

fn2-£nl 

P* 

fnl fn 2 

fnl*fn2 

F/ 

fnl fn 2 

fn2/fnl 

PABS 

fn 

absifn) 

P. 

f n 


PDOP 

fnl 

fnl fnl 


Action 

Adds two floating point numbers. 

Subtracts the first floating 
point nuenber from the second. 

Multiplies two floating point 
numbers. 

Divides the second floating 
point number by the first. 

Returns the absolute value of a 
floating point number. 

Prints the First floating point 
number on the stack in standard 
form. The result ie valid only 
in the decimal base. 

Duplicates a floating point 
nuisber on the stack. 
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FSWAP 

fnl £n2 

fn2 

fnl 

PDROP 

fn 



FOVER 

fnl £n2 

fn2 

fn2 

fnl 

F2DtJP 

fnl fn2 

fnl 

fnl 

fn2 

fn2 

F0» 

fn 

f 


F0< 

fn 

t 


F> 

fnl fn2 

f 


F>- 

fnl fn2 

f 


T< 

fnl fn2 

t 


r<« 

fnl fn 2 

t 


FCOKSTANT 

fn 




FVARIABLE 

fn 


F@ 

addr 

fn 

PJ 

addr fn 


FLOAT 

n d 

f n 


Exchanges two floating point 

numbers. 

Drops a floating point number. 

Copies the second floating point 
number over the first. 

Duplicates a pair of floating 
point numbers. 

Returns a flag which is true if 
the number equals zero. 

Returns a flag which is true if 
the number is less than zero. 

Returns a flag which is true if 
fD2 is greater than fnl. 

Returns a flag which it true if 
fn2 is greater than or equal to 
fnl. 

Returns a flag which it true if 
fn2 is less than fnl. 

Returns a flag which is true if 
fn 2 is less than or equal to 
fnl. 

fn FC0MS7AN7 cccc creates a 
floating point constant named 
cccc value fn. When the 
constant la used it leaves its 
value as a floating point number 
on the stack. 

fn FVARIABLE CCCC creates a 
floating point variable named 
cccc initial value fn. When the 
variable is used it leaves its 
address on the stack. 

Replaces an address with the 
floating point number stored at 
the address. 

Stores the floating point number 
at the address. 

Converts a double precision 
number and a single precision 
decimal exponent to a floating 
point number. 


46 



Word 


Stack 


Action 


INTEGER 

FLITERAL 

NUMBER 

FPL 

INTEKPRZT 

(F. ) 

FLOATING 

OUTPUT 

^ZEROS 


f n 


fn 


addr 


addr 



a 


n addr 


o Converts a floating point number 

to a double precision integer 
truncating any fractional part. 

In the compile mode compiles a 
floating point number as a 
literal. An immediate word 
usually used inside a colon 
definition. In the execute mode 
takes no action. 

^ ^ Converts a string consisting of 

a count and that number of bytes 
stored at the address to a 
double precision integer and 
single precision decimal 
exponent, if the value of the 
variable PPL is -1 the decimal 
exponent has no significance? 
otherwise use FLOAT to form a 
floating point number. 

A variable whose value is -1 if 
the last number input was not a 
floating point number. 

Text interpreter which performs 
the saii^e function at INTERPRET 
in the FORTH vocabulary except 
that it also processes floating 
point numbers. 

^ ^ Converts a floating point number 

to a double precision integer 
between 1E8 and 1E9 and a 
decimal exponent. The integer 
is rounded in the ninth 
significant decimal figure and 
the exponent corrected for 
output in standard form. 

Selects floating point 

vocabulary. Like all vocabulary 
words FLOATING is immediate. 

Special purpose number 

formatting word which formats 
the double precision integer 
formed by (F.). Used by F.. 

n addr Adjusts parameters used by TYPE 
to eliminate trailing zeros from 
a decimal number in standard 
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word 


Stack 


(NUMBER) addr d 


PUNCT 

EXPON 

PICK n 


addr d 


nth 

stack 

entry 


Action 

form. 

Converts ASCII characters stored 
at addr +1 to digits and 
accumulates them into the double 
precison number d. Counts the 
number of digits processed into 
variables DPL and PPL unless 
their value is -1. Returns the 
address of the first 

unconvertable character. 

Special purpose words used by 
NUMBER. 

n PICK copies the nth single 
precision stack entry. Thus 1 
PICK is the saffie as DUP ana 2 
PICK as OVER. Used for 

manipulating mixed floating 
point and other numbers on the 
stack. 


String Handling Words 

This description of the three screens of string 

on the disc or tape in souce form should be reaj J-jJ 

languages can be Implemented in Forth* 

The^whol# is stored in memory and the addresses of 
single characters may be. 

aftar^ the dictionary pointer respectively. It is iirportant t 

note that these locations move when the dictionary 

InT till use should be made of string variables or simil^ 

11 temporary 

Stores. 

citrines should be placed between ‘ and “ with one space at least 
when the word is executed. Outside a word definition, in the 
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jjllicecute inode, * simply places the string at PAD. 

IA string is printed by $. which requires an address, that of the 
length byte of the string, on the stack. Thus a string at PAD is 
' printed by PAD S. . 


ffhe word >2PAD copies the string at PAD to 2PAD. In general 
■trings are copiea using CMOVK in a sequence such as source 
Iddress destination address number of bytes to be moved CMOVE. 
Jvoid overlapping movesj move a string to a third location first, 
there are no run time checks on inappropriate uses of CMOVE. 

characters long provided sufficient characters are available. 
Which is true only if the two strings are identical. 


String Operators 
Mord Stack 

(") 


$VAAIA5LE 


2PAD 


BLANK?AD 


addr 


Action 

The ran time procedure which 
tranefere a string embedded 
in compiled code to PAD. 

Encloses a string up to the 
delimiter In the execute 
ntode moves the string to PAD? 
in the compile mode compiles 
the string. 

Defining word used in a 
sequence such as $VARIABLE 
cccc which creates a string 
variable named ^cc 
initialised to blanks. When 
the variable is used leaves 
the address of the string 
space on the stack. 

Temporary location 136 bytes 
after current value of 
dictionary pointer. 

Pills PAD with blanks. 
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>2PAD 


LEFT$ 

RIGHT5 

MIDS 


5 * 


$. 

MATCH 


Copies the string at PAD to 
2PAD. 

n Replaces the string at PAD 

with its left substring of n 
characters. 

n Replaces the string at PAD 

with its right substring of n 
characters. 

ni n2 Replaces the string at PAD 

with a substring starting nl 
characters from the left, n2 
characters long. 

addrl addri f Returns a true flag in the 

strings whose addresses are 
on the stack are identicalr 
Otherwise returns a false 
flag. 

addr Outputs a string stored at the 

address. 

ni addr 1 n f Searches forward from addr2 

n2 addr2 ter n2 bytes seeking a match 

for a string of nl characters 
whose first character (not its 
length bytel is at addrl. 
Returns pointer to innnediately 
after the matched atring as an 
offset froa addr2 and a flag 
which la true only if a 
successful match is mads. 
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GLOSSARY 


STACK OPERATORS 

SINGLE PRECISIOH ARITHMETIC OPERATORS 

DOUBLE PRECISION ARITHMETIC OPERATORS 

MIXED PRECISION ARITHMETIC OPERATORS 

LOGICAL OPERATORS 

OUTPUT OPERATORS 

ADDRESS OPERATORS 

RELATIONAL OPERATORS 

CONDITIONAL AND LOOPING OPERATORS 

RETURN STACK OPERATORS 

DICTIONARY AND MEMORY MANAGEMENT WORDS 

DEFINING WORDS 

CHARACTER AND STRING OPERATORS 
NUMBER FORMATTING OPERATORS 
VOCABULARY CONTROL WORDS 
USER VARIABLES 
SYSTEM CONSTANTS 
SYSTEM OPERATORS 
VIRTUAL MEMORY OPERATORS 
ERROR CONTROL WORDS 
EDITOR WORDS 
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Stack Operators 


NOTE the top stack 

entry is on 

the LEFT 

word 

Stack 


Action 

DROP 

n 


Discards the first stack 

entry. 

DUP 

n 

n n 

Duplicates the first stack 

entry. 

-DUP 

n 

n n 

Duplicates the first stack 
entry only if it is not equal 
to zero. 

SWAP 

nl n2 

n2 nl 

Reverses the order of the 
first two stack entries. 

OVER 

nl n2 

n2 nl 
n2 

Duplicates the second stack 
entry over the first. 

ROT 

nl n2 
n3 

n3 nl 
nZ 

Rotates the third stack entry 
to the top of the stack. 

2DUP 

d 

d d 

Duplicates a double precision 
number or a pair of 16 bit 
nutibers. 

8P@ 


addr 

Returns the value of the stack 
pointer which points to the 
first stack entry as It was 
before SPI was used. 

SPJ 


empty 

Clears the stack by 

initialising the stack pointer 

Single 

precision arithmetic operators 

Word 

Stack 


Action 

+ 

nl n2 

n]+D2 

Adds first two stack entries 

• 

nl n2 

n2“nl 

Subtracts first stack entry 
frcai second 


nl n2 

nl*n2 

Multiplies first two stack 


entries 
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/ 

nl 

n 2 

n2/nl 

MOD 

nl 

n2 

nod 

n2/nl 

/MOD 

nl 

n2 

nl«quot 

n2sreiB 

V 

nl 

n2 n3 

nl « 
result 

*/MOD 

nl 

n2 n3 

nl • 
result 
n2 « 
ren 

ABS 

nl 


abs (nl) 

MINUS 

nl 


-nl 

MAX 

nl 

n2 

nl B 
larger 

MtN 

nl 

n 2 

nl a 
smaller 

It 

nl 


nl + 1 

2t 

nl 


nl e 2 

S->D 

nl 


dl 


nl n2 nl » 

result 


Divides second stack entry 
by first 

Forms second stack entry 
modulo the first 

Divides second stack entry by 
first. The quotient is the 
first stack entry and the 
remainder is returned as the 
second. 

Multiplies the second stack 
entry by the third forming 
a 32 bit product which is 
divided by the first stack 
entry. 

result » n2*n3 /nl 

As •/ except that the 
remainder from the division 
is returned in addition to 
the quotient. 

Returns the absolute value of 
the first stack entry. 

Reverses the sign of the first 
stack entry. 

Returns larger of first two 
stack entries. 

Returns smaller of first two 
stack entries. 

Increments the first stack 
entry, 

Increnents the first stack 
entry twice. 

Converts the signed single 
precision entry to signed 
double precision. 

If nl is negative reverses the 
sign of n2. nl is discarded 
and n 2 is the result. 
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Double Precision Arithnetic Operators 


Word 

Stack 


Action 

D+ 

dl d2 

dLtd2 

Adds two double precision 
numbers. 

DABS 

dl 

absfdl) 

Returns the absolute value 
of a double precision number. 

DMINUS 

dl 

-dl 

Reverses the sign of a double 
precision number. 


n d 

a - 
result 

If n is negative reverses the 
sign of d. n is discarded. 

Mixed 

Precision Arithmetic Operators 

Word 

Stack 


Action 

M* 

nl n2 

d » 

nl*n2 

Multiplies two sixteen bit 

numbers to give a 32 bit 
result. 

N/ 

n d 

nl * 
a/n 
n2 a 
rem 

Divides a 32 bit number by a 
14 bit number to give a 
signed 16 bit quotient and a 
signed 16 bit remainder. 

M/MOD 

n d 

a « 

d/n 

n • 

ram 

Divided an unsigned 32 bJt 
number by an unsigned 16 bit 
number. Returns a 32 bit 

quotient and a 16 bit 

reiaalnder. 

U* 

ul u2 

ud • 
Ul*u2 

Multiplies two unsigned 16 bit 
numbers to give an unsigned 32 
bit result. 

U/ 

u ud 

ul « 
ud/u 
u2 = 

rein 

Divides an unsigned 32 bit 
number by an unsigned 16 bit 
number to give a 16 bit 

quotient and a 16 bit 


reiDalnder. 
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Operators 


Word 

Stack 


Action 

AND 

nl n2 

nl - 
nl AND 
n2 

Logically ANDs the first and 
second stack entries bit by 
bit. 

OF 

nl n2 

nl “ 
nl OR 
n2 

Logically ORs the first and 
second stack entries bit by 
bit. 

XOF 

nl n2 

nl « 
nl XOR 
n2 

Logically ORs the first and 
second stack entries bit by 
bit. 

Qb 

nl 

NOT nl 

Performs the logical NOT 
function reversing the truth 
state of the first stack entry 

Output 

Operators 



word 

Stack 


Action 




a signed 16 bit twos 
complement number in the 
current nxunber base followed 
by one space. 

u. 

ul 


Print the first stack entry aa 
an unsigned 1$ bit number In 
the current number base 
followed by one apace. 

D. 

dl 


Print a signed 32 bit twos 
complement number in the 
current niimber base followed 
by one space. 

7 

addr 


Print the contents of an 
address as a signed 16 bit 
number followed by one space. 

.F 

nl n2 


Displays the second stack entry 
right adjusted in a field 
whose width is the first stack 
entry. The second stack entry 
is printed as a signed number. 

D.R 

nl dl 


Displays the double precision 


signed number in a field whose 
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width 

entry- 


IS 


the first stack 


Address Operators 


Word 

Stack 


Action 


addr 

nl 

Replaces an address with the 
16 bit contents of the 
address. Pronounced fetch. 

i 

addr nl 


Stores a 16 bit number at the 
address. Pronounced store. 


addr nl 


Adda a 16 bit number to the 16 
bit contents of the address 
and leaves the result at the 
address. Pronounced plus 
store 

c@ 

addr 

bl 

Replaces an address with its 0 
bit contents setting them in 
the low order 9 bits of a 16 
bit stack entry. Pronounced 
c fetch. 

CJ 

addr bl 


Stores the low order 6 bits of 
a 16 bit stack entry at the 
address. Pronounced c store. 

2§ 

addr 

ai 

Replaces an address with Its 
32 bit contents. Pronounced 
two fetch. 

21 

addr dl 


Stores a 32 bit number at the 
address. Pronounced two store 

Relational 

Operators 



Word 

Stack 


Action 

s 

a 

3 

f 

Returns a true flag if the 
first two stack entries are 
unequal; otherwise returns a 
a false flag. 

. 

nl n2 

£ 

Returns a true flag if the 


first two stack entries are 
unequal; otherwise returns a 
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false flag. The true flag is 
equal to the difference 
between nl and n 2 . 


> 

nl n2 


f 

Returns a true flag if n2 is 
greater than nl. Otherwise 
returns a false flag. 

< 

nl n 2 


£ 

Returns a true flag if n2 is 
less than nl. Otherwise 
returns a false flag. 

u< 

ul u2 


f 

Returns a true flag if the 
unsigned number u2 is less 
than the unsigned number ul. 
Otherwise returns a false 
flag. 

0* 

nl 


f 

Returns a true flag if nl is 
equal to zero. otherwise 
returns a false flag. 

0< 

nl 


f 

Returns a true flag if nl is 
less than zero and thus a 
negative number. Otherwise 
returns a false flag. 

Conditional 

and Looping Operators 


Word 

Stack 



Action 

IP ... 

ELSE ... 

BNDIF 

f 



IP takes a flag frcm the stack 
The words after IF are 
executed only if the flag is 
true. The words in the 
Optional ELSE clause are 
executed only if the flag is 
false. The words after EMDIF 
are executed unconditionally. 

THEN 




An alias for BNDIF. 

DO . .. 

LOOP 

index 

limit 


Defines a finite loop. The 
index is incremented by one on 
each passage through the loop. 
The loop ends when the limit 
is reached or passed. 

DO ... 

+LOOP 

index 

n 

linvit 


Defines a finite loop. The 
index is incremented by the 
value n taken from the stack 


by +LOOP on each passage 
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throu 9 h the loop. 


LEAVE 


BEGIN 

UNTIL f 

END f 

BEGIN . .. 
WHILE ... f 
REPEAT 
BEGIN . .. 
AGAIN 


If the increment is positive 
the loop ends when the index 
is equal to or greater than 
the limit. 

If the increment is negative 
the loop ends when the index 
is equal to or less than the 
limit. 

Tennlnates the execution of a 
finite loop at the next LOOP 
or +LOOP. 

Defines an indefinite loop 
which is repeated until the 
fla^ taken from the stack by 
UNTIL is true. 


An alias for UNTIL. 

Defines an indefinite loop 
which is repeated until the 
flag taken from the stack by 
WHILE is false. 


Defines an unconditional loop. 


Return Stack Operators 


Word 

Stack 


Action 

R> 


n 

Removes one value from the 
return stack and places it on 
the parameter stack. 

>R 

n 


Reatoves one value from the 
parameter stack and places it 
on the return stack. 

I 


n 

Inside a DO LOOP construct 
copies the Loop index (which 
is the top return stack value) 
to the parameter stack. if 
there is more than one nested 
loop then it copies the index 



of the innermost loop. 


II 

AP6 

RPl 

Dictionary 

word 

ALLOT 

C, 

t 

DP 

HERB 

BLANKS 

ERASE 

PILL 


n Copies the first return stack 

value to the parameter stack. 

n Places the value of the return 

stack pointer on the parameter 
stack. 

Clears the return stack by 
reinitialising the return 
stack pointer. 


and Memory Manag^ent Words 
Stack Action 



b 



addr 


addr 


n addr 


n addr 


b n addr 


Reserves n bytes in the 
dictionary by advancing the 
dictionary pointer. 

Stores the lower 8 bits of the 
first stack entry in the next 
free dictionary byte and 
advances the dictionary 
pointer one byte. 

Stores the first stack entry 
at the next free dictionary 
location and advances the 
dictionary pointer. 

User variable containing the 
address of the next free 
dictionary location referred 
to as the dictionary pointer. 

Leaves the value of the 
dictionary pointer which is 
the address of the next free 
dictionary location on the 
stack. 

Fills an area of memory 
starting at addr for n bytes 
with spaces (ASCII 20 hex). 

Fills an area of memory 
starting at addr for n bytes 
with zeros. 

Fills an area of memory 
starting at addr for n bytes 
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with the byte b. 


CMOVE n dest source 

Defining Words 
Word Stack 

CREATE 

CONSTANT nl 

VARIABLE nl 

USER nl 

<BUILDS 

DOES> 


Moves n bytes from source to 
dest where source and dest are 
addresses. The bytes are 
moved in order of increasing 
memory address. 


Action 


CREATE CCCC creates a 
dictionary header named cccc 
with a code address pointing 
to the parameter field. Usod 
by other defining words to 
form all dictionary headers. 

n CONSTANT cccc creates a 
constant named cccc value n . 
When the constant is used it 
leaves its value on the stack. 

n VARIABLE cecc creates a 
variable named cccc initial 
value n . when the variable is 
used it leaves its address on 
the stack. 

n USER cccc creates a user 
variable named cccc whose 
address is an offset n from 
the user variable base 
register value. When the user 
variable is used it leaves Its 
address in the user variable 
area. 

Used in the colon definition 
of defining words. Directs 
defining word to create 
dictionary entry. Always used 
with DOBS>. See High Level 
Defining Words. 

Used in colon definition of 
defining words. Controls run 
time behaviour of the class of 
words defined by the defining 
word. Always used with 
<BUILDS. See High Level 
Defining Words. 
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: cecc creates a new word 
naaed cccc . All words and 
numbers entered until j or 
;CODE are compiled into the 
definition unless they are 
iwnedtate words which are 


;CODE 


{ ;CODE) 



COMPILE 


(COMPILEJ 

I 


] 


executed* ; sets the context 
vocabulary to current. 

Terminates a definition 
started by : . 

Ends compilation of the high 
level part of a machine code 
defining word by compiling 
(;CODE). 

Runtime procedure compiled by 
;COOE which stores a pointer 
to the machine code part of 
the defining word in the code 
field of the latest entry in 
the dictionary. 

Runtime procedure compiled by 
; at the end of a colon 
definition which returns 
control to the calling 
procedure when the word is 
executed. 

Compiles the execution address 
of the word following COMPILE 
into the dictionary. 

Forces compilation of an 
ionediate word 

Suspends compilation within a 
colon definition and allows a 
sequence of words to be 
executed to make a calculation 
for example. 

Resumes compilation in a colon 
definition. 


LITERAL nl 


Nhen compiling compiles the 
first stack entry as a 16 bit 
LITERAL is iminediate 
and is usually used in colon 
definitions, in the execution 
■ode it takes no action. 
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DlilTERAL 


dl 


Performs the action of LITERAL 
for a double precision niuriber. 


Character and String Operators 
Word Stack 


literal cccc into the 
definition of a word. In the 
execution mode the string is 
printed immediately* 

The runtime procedure compiled 
by which outputs an 
embedded string. 


COUNT addr n addr 


CR 

EMIT c 

EXPECT n addr 

MEXPECT n addr 

MEXIT 


Converts an address which 
points to a string stored in 
memory consisting of a byte 
containing the length of the 
string followed by bytes 
containing the characters to n 
which is the number of bytes 
in the string and addr which 
points to the first character. 
These stack entries are 
usually used by TYPE. 

Outputs a carriage return and 
line feed* 

Outputs the character whose 
ASCII code is c . The user 
variable OCT is incremented to 
allow control of formatted 
output* 

Accepts characters from the 
keyboard and stores them 
beginning at the address until 
return or until n characters 
have been received. Two nulls 
or ASCII zeros mark the end of 
the text. 

Similar to EXPECT. However 
does not return until RETURN 
or CNTRL-STOP pressed. 

Updates MEXIT. Responds to 
cursor movements• 

Variable updated by MEXPECT. 
Contains non-zero if CONTROL- 
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STOP pressed. 


KEY 

NUMBER addr 


(NUMBER) addr d 


PAD 


QUERY 

SPACE 

SPACES n 
?TERMINAL 

-TRAILING r ciftiir 


TYPE n addr 


c 


d 


addr d 


addr 


f 


n addr 


Waits for a key input and 
returns the ASCII value. 

Converts a string which 
consists of a count and that 
nunber of bytes stored at the 
address to a signed double 
precision number using the 
current number base. If there 
is a point in the string its 
position is indicated in the 
user variable DPI. . If the 
string cannot be converted an 
error nessage is given. 

Converts ASCII characters 
stored at addr to digits 
and accumulates them into the 
the double precision number d. 
P^'turns the address of the 
first unconvertahlc character. 
Used hy NUMBER . 

Returns an address in the free 
memory area above the 
dictionary and a fixed offset 
from the dictionary pointer 
which can be used for the 
temporary storage of text. 

Accepts up to 80 characters 
from the keyboard terminated 
hy return to the text input 
buffer and resets IN to zero. 

Outputs a apace. 

Outputs n spaces. 

If any key is being pre.^^sed 
returns a true flayj otherwise 
returns a false flag. 

Returns n which is the count 
of characters in a string 
stored at addr adjusted to 
eliminate trailing blanks. 
The address is returned 
unaltored. 


Outputs a string of n 
characters stored at addr. 
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WORD 


Reads text from the input 
stream using c as a delimiter. 
Moves the text to the free 
space at the dictionary 
pointer with a character count 
in the first byte and followed 
by two or more spaces. 


Number Formatting Operators 


Word 


Stack 


Action 


initiates formatted numeric 
output in which a double 
precision number is converted 
to text at PAD, The text 
includes the digits of the 
nupd^r. 

Generates a digit from d by 
dividing by BASE leaving a 
quotient on the stack for 
further processing. Ths ASCII 
value of the digit is put into 
a string which is build up at 
PAD. Always generates a digit 
even if it is zero. 


HOLD 


SIGN 


u addr 


Converts a number to a string 
of digits by repeating the 
action of « until the number 
on the stack ie zero. Always 
generates at least one digit. 

Inserts in the string being 
built up at PAD the character 
whose ASCII value is on the 
stack. 

Inserts a minus sign in the 
string being built up at PAD 
if the third stack entry 
(inoediately below the double 
precision number being 
converted) is negative. 

CcMnpletes number conversion by 
discarding the double 
precision number on the stack 
(which is usually zero by this 
stage) and leaving a count and 
address of the string at PAD. 
These can be used by TYPE to 
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output the string. 


Vocabulary Control Horde 
Word Stack 


Action 


CONTEXT addr 

CURRENT addr 

DEFINITIONS 

FORTH 

FORGET 

IMMEDIATE 

LATEST addr 


User variable which contains 
the address of the vocabulary 
fcoB which dictionary searches 
are started. 

User variable which contains 
the address of the vocabulary 
to which new dictionary 
entries will be linked. 

Makes the current vocabulary 
the same as the context 
vocabulary 

The name of the primary 
vocabulary which Initially la 
the kernel or core language. 
New word definitions are 
automatically added to the 
FORTH vocabulary until other 
vocabularlea are defined by 
the ueer. 

Dieoarde the word whose name 
follows FORGET in the input 
line from the dictionary and 
all subsequent dictionary 
entries in dictionary order. 
The current and context 
vocabularies must be the same. 

Hakes the latest entry in 
the current vocabulary an 
imniediate word. Immediate 
words are executed and not 
compiled in colon word 
definitions making the 
compiling process self 
extending as well as the rest 
of the language. 

Returns the name field address 
of the latest entry in the 
current vocabulary. 
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TASK 


VLIST 


VOC-LINK 


VOCABULAKY 


A word used to mark out a 
boundary in the dictionary 
between groups of word 
entries. The group, usually 

of words used in the same 
application, can be removed as 
a whole by FORGET TASK . TASK 
does not perform any active 
operation. 

Lists on the screen the names 
of the trfords of the context 
vocabulary. The listing can 
be interrupted from the 
keyboard. 

User variable which contains 
the address of a field in the 
most recently defined 
vocabulary name word. 

Defining word which is used to 
define vocabulary names. 
VOCABULARY EDITOR is used to 
define the word EDITOR which 
when us^ evokes the EDITOR 
vocabulary by placing its 
address in CONTEXT. 


User Variables 



Word 

Stack 


Action 

50 


addr 

Initial value of parameter 

stack pointer. 

RO 


addr 

Initial value of return stack 
pointer. 

TIB 


addx 

Address of terminal input 

buffer. 

WIDTH 


addr 

Number of characters used to 
identify word names in the 
dictionary. The permitted 
range is 1 to 31. 

WARNING 


addr 

Controls the treatment of 

error conditions- 


€6 


0 Error message numbers only 
given. 



1 An error message relative 
to line 0 screen 4 drive 1 
is printed. 


PENCE 


DP 


VOC-LINK 


BLK 


IN 


OUT 


SCR 


OFFSET 


addr 


addr 


addr 


addr 


addr 


addr 


addr 


addr 


-1 (ABORT) is executed. 
(ABORT) may contain a user 
defined error procedure. 

Marks the end of the protected 
dictionary; below this address 
the operation of FORGET Is 
trapped. 

The dictionary pointer is the 
address of the first free 
dictionary location. 

Contains the address of the 
last field of the most 
recently created vocabulary. 
The fields link vocabulary 
naaes. 

Contains the number of the 
block being interpreted unless 
the number is zero in which 
case the terminal buffer is 
interpreted. 

Contains an offset from the 
start of the terminal input 
buffer ox block being 
interpreted. Altered by each 
successive call of WORD. 

Incremented by each use of 
EMIT to output a character. 
Hay be used for output 
formatting. 

Contains the number of the 
screen most recently 

referenced by LIST. 

Contains a block offset used 
when the disc drives or other 
nass storage are accessed. 
Does not affect the behaviour 
of MESSAGE which always 
relates to line D screen 4 
drive 1. 
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Word 


Stack 


Action 


CONTEXT 

CURRENT 

STATE 


BASE 

DPL 


FLD 

CSP 

R# 

HLD 


addr 

addr 

dddr 


addr 

addr 


addr 


addr 


addr 

addr 


Contains the address of the 
vocabulary within which 
dictionary searches begin. 

Contains the address of the 
vocabulary to which new 
entries in the dictionary will 
be 1 inJced • 

Controls operation of text 
interpreter. If STATE 
contains a non zero value then 
words and nu^nbers are compiled 
and not executed unless the 
words are immediate words. 

Contains current number base. 

Contains the number of digits 
to the right of the point in 
the last double precision 
number entered or -1 if the 
last number entered was single 
precision. May be used to 
hold the column position of 
the point in formatted number 
output. 

Hay be used to control field 
width in formatted number 
output. 

Hay be used to store parameter 
stack pointer position for 
error checking during 
compiling. 

Contains the current position 
of the editing cursor. 

Contains a pointer to the 
current character position in 
the teat at pad during number 
output• 
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System Constants 


word 

Stack 


Action 

0 12 3 


n 

The numbers zero one two and 
three are in the dictionary 
and so available in any number 
base. 

BL 


n 

Returns ASCII space 20 hex. 

C/L 


n 

Characters per line. 

FIRST 


n 

Leaves address of first block 
buffer. 

LIMIT 


n 

Leaves the first address after 
that used by the last block 
buffer. 

B/BUP 


n 

The number of bytes in each 
block buffer. 

B/SCR 


n 

The number of buffers needed 
for each screen. 

Systsm Operators 



Word 

Stack 


Action 

» 


addr 

Tick is used in the sequence 
cccc and leaves the parameter 
field address of the word cccc 
which must be in a currently 
accessible vocabulary. 

( 



Together with ) delineates a 
a comment which is ignored by 
the text interpreter. 

DECIMAL 



Sets the number base to 

decimal. 

HEX 



Sets the number base to 

tiexadecimal or base 16. 

EXECUTE 

addr 


Executes the word whose code 
field address is on the stack. 

CPA 

pf a 

cfa 

Converts the parameter field 
address of a word to the code 
field address. 
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Word 

Stack 


Action 

LFA 

pfa 

If a 

Converts the parameter field 
address of a word to the link 
field address. 

NPA 

pfa 

nfa 

Converts the parameter field 
address of a word to the name 
field address. 

PFA 

nCa 

pfa 

Converts the name field 
address of a word to the 
parameter field address. 

TRAVERSE 

n addr 

dddr 

Traverses the variable length 
name field of a word. 

If n • 1 converts the address 
of the length byte to that of 
the last letter. 

If n • *1 converts the address 
of the last letter to that of 
the length byte. 

TOGGLE 

b addr 


Exclusive ORs the byte at the 
address with the bit mask b • 

QUIT 



Stops compilationf clears the 
return stack and returns 
control to the terminal 
without printing the message 
OK . 

COLD 



Restarts language clearing 
dictionary buffers and stacks 
allocating inemory in 
accordance with cold start 
parameters. 

WARM 



Restarts language clearing 

buffers and stacks. 

BYE 



Exit to operating system or 
monitor. 

+ORIGIN 

n 

addr 

Converts the offset n to a 
memory address in the lowest 
part of memory used by the 
language. This area is 
reserved for certain cold 
start and system parameters. 

Pe 

n 

data 

Reads port number n and leaves 
result on the stack. 


70 



P! 


n 


d&ta 


TASK 

NOOP 

.CPU 

NULL 

LIT 


INTERPRET 


(DO) 

(LOOP) 

( 4 - 100 ?) 
BACK 
BRANCH 
06RANCB 


Writes data (a single 
P^^cision integer between 0 
and 2551 to port number n. 

harks the end of the kernel 
in the dictionary and performs 
no active operation. 

Forth non operation. 

Prints the name of the system 

CPU. 

ASCII zero which is always 
the last word of interpretable 
text. 

n The run time procedure which 

pushes to the stack the 16 bit 
number following its address 
embedded in compiled code. 
Automatically used when 
numbers appear in colon 
definitions and other compiled 
text. 

Text interpreter which 
interprets the text it obtains 
from repeated calls to WORD. 
Return to the calling word is 
affected by the execution of 
MULL which is the ASCII zero 
always placed at the end of 
the text being interpreted. 

The run time procedures which 
implement the conditional and 
Looping structures. May be 
used Only inside word 
definitions» 


DIGIT 

(FIND) 

-FIND 

ENCLOSE 


Internal procedures whose 
functions are available to the 
user through other words. 


SMUDGE 


Used in compilation to set and 
reset a bit in the length byte 
of each dictionary header. 
The smudge bit is used to make 
a word whose compiled code is 
incomplete inaccessible until 
compilation is completed 
vi thou t e rror. 


71 



Virtual Memory Operators 

Word Stack Action 


BLOCK 

n 


addr 

Leaves the address of the 
buffer containing block n 
having read the block from 
tape if it is not already 
resident. 

+BUP 

addr 


f addr 

using the address of the 

current buffer returns the 
address of the next buffer. 
The flag is false when the 
address returned is that in 
PREV . 

BUFFER 

n 


addr 

Obtains the next free buffer 
and assigns it to block n 
returning its address. The 
existing contents of the 
buffer are written to tape if 
necessary. 

EMPTy-BUPFERS 



Marks all buffers as empty. 
The contents are not written 
to tape. 

FLUSH 




Writes all updated buffers to 
tape. 

INDEX 

to 

from 


Displays the first line of 
each screen in the range from 
to . These lines are usually 
used to describe the contents 
of each screen in a comment. 

.LINE 

scr 

line 


Print a line of text accessed 
by line and screen number. 

{LINE3 

scr 

line 

n addr 

Returns the buffer address and 
nuniber of characters In a line 
accesBOd by line and screen 
number. 

LIST 

n 



Display the text of screen 
n . n is also stored in the 
user variable SCR . 

LOAD 

n 



Interpret the text of screen 


n • 
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VtOTd 


Stack 

R/W f blk addr 


WRITE-CHAR n f 

READ-CHAR n f n 

WRITE-HEAD c a f 


WRITE-BODY a 


f 


FIL£$ 


c a 


READ-HEAD e a al f 


READ-BODY a £ 

BLOCK-FIHD n 

BLOCK-READ n a 


Action 


Roads from and writes to tape 
or other mass storage. The 
flag indicates the operation 
0 write 1 read , The number 
blk specifies the block number 
and the address is that of the 
buffer assigned to the block. 

Writes n to tape interface. 
Returns f*l if error. 


Reads character from tape. 
£**1 if error occurred in which 
case n meaningless. 

Writes a header to tape c 
bytes long starting at addr a 
prefixed by 8 EA Hex chars. 
Returns f«l if error occurs, 

Ik block starting at 
addr a plus a checkeiun to 
tape. Returns f«l if an 
error occurs. 

Forms string at PAD in the 
form SCRHinnn where n is the 
screen number returns a»PAD 
AND C*S. 

Reads tape looking for file 
with name given by string 
starting at a with length c. 
Returns f»l and no al if error 
or f«0 if OK with al. If al«0 
then the file was found 
otherwise al« the start of the 
string name of the file found. 

Reads Ik bytes and places them 
starting at addr a. Reads 
checksum & returns f»l if 
error found. 

Searches tape for SCRNinnn. 
Aborts if an error found. 

Reads block n from tape 
P'^tting in buffer starting at 
address a. 
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BLOCK-WRITE n d 

TRIAD n 

UPDATE 

— > 

t8 

Error Control words 
word Staick 

EKROK n BLK IN 


(ABORT) 

ABORT 


Writes block n to tape using 
data starting at address a. 

Displays the text of three 
screens including screen n 
starting with a screen number 
evenly divisible by three. 
Also prints as a reference 
line line IS of screen 4 . 

Marks the most recently 
referenced block pointed to by 
PKEV as altered. This block 
vill be rewritten to tape when 
its buffer is reused or by 
FLUSH. 

Next screen continues 
interpretation with the next 
screen. 

Terminates interpretation of a 
screen* 


Action 


Reports error number or 
message and restarts. Action 
depends on the value of the 
user variable WARNING. 

If WARNING • 0 then n is 
printed as a message number. 

If WARNING * 1 the text of 
line n relative to line 0 of 
screen 4 of drive 0 la 
printed. 

If WARNING - -1 then (ABORT) 
is executed. 

IN and BLK are left on the 
stack to locate the cause of 
the error. 

Executes ABORT . May be 
altered to execute user chosen 
error procedure. 

Clears stacks and returns 
control to terminal in 
execution mode. The system 
message is printed. 
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Word 


Stack 


Action 


ID. addr 

7ERH0R n f 

?COMP 

?CSP 

?BXEC 

7X#0ADING 

7PAIRS ni n2 

78TACK 

IC8P 

M6SSAGS n 

Editor Words 

Word Stack 

7NUM £f or 

tf n 

ALTER n 
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Prints the name of a word from 
Its name field address. 

Issue error message n only if 
the flag is true. 

Issue error message if not 
conpiling. 

Issue error message if stack 
pointer differs from value 
saved in CSP . 

Issue error message if not 
executing. 

Issue error message if not 
loading. 

Issue error message if nX and 
n2 are not equal. Uaed to 
detect incorrectly formed 
conditional conatructs. 

Issue error message if the 
stack has underflowed or 
overflowed. 

Saves value of stack pointer 
in CSP. Used to detect 
conplllng errors. 

Prints the text of line n 
relative to line 0 of screen 4 
of drive 0 unless WARNING is 
sero in which case only the 
message number will be 
printed. 


Action 

Attemps to convert the string 
at HERE preceded by a count to 
a single precision number. 
Returns the number plus true 
flag or a false flag. 

Moves the data at HERE to line 
n on the current screen (given 
by SCR). Trims the line to 64 



Word 


Sta ck 


Action 


EDIT n 

EDITOR n 

WHERE n s 


chs if it is longer. 

Edits screen n. 

The name of the editor 
vocabulary 

line containing char 
number n in block s together 
^ith an arrow* Used when 
correcting program errors. 
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